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ABSTRACT 


THE DRV11=J IS A GENERAL PURPOSE PARALLEL INTERFACE FOR THE 
LSI=11 BUS. IT HAS A BASIC CONFIGURATION OF 64 TRI=STATE IN/OUT 
LINES DIVIDED INTO FOUR GROUPS OR PORTS OF 16 BIT WORDS. 


THERE ARE TWO 4K DIAGNOSTICS FOR THE DRV11-J OPTION. 

THE DRV11-J DIAGNOSTIC TEST PART 1 OF 2 CONTAINS A 

SERIES OF TESTS WITHOUT DRV11J INTERRUPTS DESIGNED TO TEST ALL 
LOGIC FUNCTIONS AND DATA PATHS MADE ACCESSIBLE WITH THE LOOPBACK 
CABLE INSERTED INTO THE DRV11-J 1/0 CONNECTORS. 


THE DRV11-J DIAGNOSTIC PART 2 OF 2 IS A SERIES OF TESTS 
WITH DRV11J INTERRUPTS DESIGNED TO TEST ALL LOGIC AND DATA PATHS 
roman 7 eae WITH THE LOOPBACK CABLE INSERTED INTO THE 1/0 


THE DRV11-J IS CONTAINED ON A DOUBLE HEIGHT MODULE. 
THE MODULE CONTAINS TWO 50 PIN CONNECTORS FOR INTERFACING 
TO EXTERNAL USER DEVICES. 


FOR DIAGNOSTIC TESTING, THE DRV11-J CABLE(BCO5W-02) MUST 
BE INSTALLED WITH 1/2 TWIST BETWEEN THE 50 PIN CONNECTORS. 


REQUIREMENTS 


EQUIPMENT 


1. PDP11/03,11/23 COMPUTER OR LSI-11 PROCESSOR 
WITH A MINIMUM OF 4k MEMORY. 


2. SERIAL LINE INTERFACE AND CONSOLE TERMINAL 
3. DRV11-J OPTION WITH A BCOS5W-O2 CABLE 
STORAGE 

THE PROGRAM USES THE LOWER 4K OF MEMORY. 
LOADING PROCEDURE 


USE STANDARD PROCEDURE FOR PDP-11 ABSOLUTE 
BINARY FORMATTED PAPERTAPES OR XXDP MEDIA 
(FILES WITH .BIC OR .BIN EXTENSIONS ONLY). 


STARTING PROCEDURE 


1. MAKE SURE THE DRV11-J CABLE IS INSERTED WITH 1/2 A TWIST 
ON THE I/O CONNECTORS OF THE DRV11~-J OPTION. 
THIS WILL CONNECT PORT A TO PORT C AND PORT B TO PORT D. 


2. MAKE SURE THE DEVICE BUS ADDRESSES AGREE WITH THE DEFAULT 
VALUES DEFINED IN SECTION 7.1. IF NOT, CHANGE. 
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—E 1 
LOCATION(S) AS DESIRED VIA THE ‘ADDRESS/' ODT COMMAND. PAGE: 3004 
3. THE PROGRAM SHOULD ALWAYS BE STARTED AT 200. STARTING 
AT 200(200G OR .R CVDRCA UNDER XXDP+), THE PROGRAM 
INITIALIZES ITSELF,PRINTS ITS ID(FIRST TIME ONLY) AND 
THEN PRINTS THAT THE DRVi1-J CABLE IS REQUIRED(FIRST TIME 
ONLY) AND THEN PRINTS: SWR=XXXXXX NEW ss 


WHERE XXXXXX REPRESENTS THE CURRENT VALUE OF THE SOF TWARE 
SWITCH REGISTER. IF NO CHANGES ARE REQUIRED IN THE SWITCH 
REGISTER THEN JUST HIT CARRIAGE RETURN 

IF CHANGES ARE REQUIRED, THEN A NEW VALUE MAY BE TYPED 
FOLLOWED BY A CARRIAGE RETURN. 

REFER TO SECTION 5.0 FOR SWITC'4 REGISTER OPTIONS. 


4. If THE FOLLOWING ERROR OCCURS RIGHT AFTER STARTUP IT IS 

POSSIBLE THAT THE DRV11J LOOPBACK CABLE MAY NOT BE INSTALLED 

OR WAS NOT INSTALLED PROPERLY: 

REG READ/WRITE ER 

ERRPC TSTNUM BUSADR EXPCT RCVD 
| 
| 
| 
| 
} 


002224 000002 *164160 100700 000700. 
*BUSADR MAY BE DIFFERENT DEPENDING ON THE CSR-OF THE DRV11J. 


5.0 SOF TWARE SWITCH REGISTER 


7a OPT IONS 


THE PROGRAM SWITCH DEFAULT MODE IS SWR = 900000 
IF USING A VIDEO TERMINAL ,BIT 15 = 1(HALT ON ERROR) 
MAY BE HELPFUL IN KEEPING THE ERROR ON THE SCREEN. 


SWITCH OCTAL FUNCTION 

SW15=1 100000 HALT ON ERROR 

SW14=1 040000 LOOP ON TEST 

SwW13=1 020000 INHIBIT ERROR TYPEOUTS 

SwW11=1 004000 INHIBIT ITERATIONS 

SWO9=1 001000 LOOP ON ERROR 

Sw08=1 0004xx LOOP ON TEST IN SWR <7=0> 
5 CONTROL 


1. THE SOFTWARE SWITCH REGISTER "SWREG’ (LOC. 176) CAN BE 
CHANGED BY USING THE ODT FACILITIES. 


2. THE SOFTWARE SWITCH REGISTER CAN BE CHANGED UNDER PROGRAM 
CONTROL BY TYPING THE ‘CONTROL & G' KEYS. THIS 
KEYBOARD OPERATION WILL PRINT OUT THE CURRENT CONTENTS 
AND ACCEPT NEW OCTAL SWITCH REGISTER DATA TERMINATED 
WITH A CARRIAGE RETURN. 


3. ONCE THE ODT MODE HAS BE 

ERROR CONDITION WITH BIT 
ABOVE IS OF NO VALUE, SO 
SOFTWARE SWITCH REGISTER 
*P* (CONTINUE). 


EN ENTERED BECAUSE OF AN 
15 SET (HALT ON ERROR), STEP #2 
RESORT TO STEP #1 TO ALTER THE 
IF DESIRED BEFORE TYPING 


Ose ve 


ERROR REPORTING 


ERROR COMMENT 


ALL ERRORS ARE ACCOMPANIED WITH AN ENGLISH LANGUAGE DESCRIFTIVE 
COMMENT AS TO THE TYPE OF FAILURE. FURTHER QUALIFICATION OF 

THE ERROR CAN BE OBTAINED IF NEEDED FRUM THE COMMENT AT THE 
ERROR PC OR FROM THE TEST ITSELF. 


TO CONSERVE MEMORY SPACE FOR THE 4k PROGRAM MEMORY 
REQUIREMENT,REGISTER 5 (RS) IS RESERVED FOR THE 

$BDDAT LOCATION (1126). 

EXAMPLE: CMP $GDDAT,(R5) IS THE SAME AS CMP $GDDAT,$8DDAT. 
ERROR DATA 

ERROR TITLE HEADING 


ERRPC TSTNUM BUSADR EXPCT RCVD 
100000K 0000000  J00000K 00000K  00000K 


ERRPC LISTING ADDRESS WHERE THE ERROR WAS DETECTED 
TSTNUM TEST NUMBER WHERE THE ERROR OCCURRED 

BUSADR DRV11J BUS REG ADDRESS OF CONCERNED OPERATION 
EXPCT DATA THAT WAS EXPECTED 

RCVO DATA THAT WAS RECEIVED 


ERROR TITLES 


REG TIMEOUT ER REGISTER TIMEOUT ERROR 

REG READ/WRITE ER REGISTER READ/WRITE ERROR 

IRR REG ER ; INTERRUPT REQUEST REG’° ER ERROR 
ACR REG ER ;AUTOCLEAR REGISTER © 8.0% 

IMR REG ER INTERRUPT MASK REGISTER ERROR 
ISR REG ER INTERRUPT SERVICE REGISTER ERROR 


CHIP STAT ER 3 CHIP STATUS ERROR 









MISCELLANEOUS 


DRV11=) BUS ADDRESS MODIFICATION 
MODIFY LOCATION "$BASE' (ADDR: 1244) IF BASE BUS ADDRESS 

1S NOT 164160. 

XXDP/APT NOTES 

THIS DIAGNOSTIC DOES SUPPORT ACT AND APT ENVIRONMENTS. 

POWER FAIL 

A POWER FAILURE WILL CAUSE A RESTART MESSAGE ON POWER UP AT 

WHICH TIME THE PROGRAM IS RESTARTED (ONLY ON SYSTEMS WITH 
NON-VOLATILE MEMORY AND WITH APPROPRIATE HARDWARE). 

MULTIPLE DRV11J INTERFACE TESTING 

TH'S PROGRAM DOES NOT ‘‘AUTO=SIZE*' THE NUMBER OF DRV11J'S CONNECTED. 
THIS DIAGNOSTIC WILL TEST SEQUENTIALLY UP TO 4 DRV11J INTERFACES 
WITH CONTIGUOUS BUS ADDRESSES. THIS IS ACCOMPL] SHED 


BY THE USER SETTING UP LOCATION "DEVM" (ADDR: 1246) 
WITH A BIT MAP INDICATING WHAT INTERFACES ARE TO BE TESTED. 


I1.£. BITO = 1 SAYS TEST 1ST DRV11J, 

BIT1 = 1 SAYS TEST 2ND DRV11J 

BIT2 = 1 SAYS TEST 3RD DRV11J 

BITS = 1 SAYS TEST 4TH DRV11J 
1ST UNIT = STARTING CSRA 164160 $DEVM = 1 
2ND UNIT = STARTING CSRA 164140 $DEVM = 3 
3RD UNIT = STARTING CSRA 164120 $DEVM = 7 
4TH UNIT = STARTING CSRA 164100 $DEVM = 17 
RESTRICTIONS 


EXECUTION TIME 


EXECUTION TIME RANGES FROM ABOUT <5 SECONDS ON FIRST 
PASS WITH NO ITERATIONS TO <20 SECONDS WITH ITERATIONS 
ENABLED AFTER FIRST PASS,PER DRV11J UNIT CONNECTED. 

AN "END PASS*’ MESSAGE INDICATES ALL TESTS HAVE COMPLETED 
ON ALL SELECTED UNITS. 































PROGRAM TESI DESCRIPTIONS 


GENE 2AL 


THIS DIAGNOSTIC CONTAINS A SERIES OF INDEPENDENT TESTS DESIGNED 
TO TEST LOGIC FUNCTIONS AND DATA PATHS ‘OF THE DRV11J OPTION. 
TESTING IS ACCOMPLISKED WITH THE AID OF THE 

DRv11J LOOP BACK CABLE PROVIDED FOR DIAGNOSTIC TESTING. 

A COMPLETE LIST OF TESTS IS AVAILABLE IN THE TABLE OF CONTENTS 
AT THE BEGINNING OF THE LISTING. THE COMMENT FIELD WITHIN 
EACH TEST CAN BE BENEFICIAL IN TEST UNDERSTANDING. 


TESTING WITH THE DRV11J CABLE ALLOWS [OR TESTING 
OF PORT A WITH PORT C AND THE TESTING OF PORT B 
WITH PORT D. 


TESTS T1-T22 REGISTER CHECKING 


THESE TESTS WILL WRITE/READ PORTS A TC C 

AND WRITE/READ PORTS B TO D WITH FLOATING 

ONES AND FLOATING ZEROS,GROWING ONES AND 
GROWING ZEROS AND DATA PATTERNS. 

TESTS ARE PERFORMED TO INSURE INTERACTION WITH 
CONNECTED PORTS AND NO INTERACTION BETWEEN 
UNCONNECTED PORTS. 


T22-T42 INTERRUPT CONTROL REGISTER CHECKING 


TESTS ARE MADE TO THE INTERRUPT CONTROL CHIP 
REGISTERS IRR,ACR,IMR AND LIMITED TESTING OF 
ISR REGISTER UNTIL INTERRUPTS ARE PERFORMED. 
TESTS ARE PERFORMED ON THE REGISTERS WITH 
FLOATING ONES,FLOATING ZEROS,GROWING ONES 

AND GROWING ZEROS. CHIP RESET CAPABILITIES 
ARE TESTED AS WELL AS UNIQUENESS OF REGISTERS 
WITHIN A CHIP GROUP AND THE UNIQUENESS OF 

ONE GROUP'S REGISTERS TO ANOTHER GROUP'S 
REGISTERS. 


TEST 43 - TEST STATUS BITS GINT,S2,S1,S0,GP1,GP2 


EXERCISE THE STATUS BITS 3$2,S1,S0 AND GINT FOR 

EACH GROUP CHIP BY SETTING SINGLE IRR BITS TO CAUSE THE 
STATUS BITS TO GQ FROM 120 TO 127. EACH IRR BIT 

IS THEN MASKED TO RETURN STATUS BACK TO ORIGINAL 
STATUS WITH NO IRR BITS SET. 


144-147 POLLED MODE TESTING 


THIS TEST WILL WRITE PATTERNS INTO DBRA WITH 
EITHER LOW TO HIGH OR HIGH TO |.OW POLARITIES. 
AFTER PLACING ALL ONES IN DBRA AND THEN SELECTING 
ACTIVE LOW, CLEARING DBRA WILL NOW SET IRR BITS 
O0-7,GROUP 1 AND IRR BITSO-3,GROUP2. 

THE RPLY SIGNALS WILL SET IRR BITS 4-7 

WHEN WRITING DBRA IN OUTPUT MODE,THIS wILL 















SET THE RPLY FOR DBRC.(IRR6,GROUP 2) 
WHEN READING DBRC IN INPUT MODE WILL SET 

THE RPLY FOR DBRA.(IRR BIT 4,GROUP 2) 

WHEN WRITING DBRB IN OUTPUT MODE, THIS WILL 

SET THE RPLY FOR DBRD(IRR BIT7,GROUP2) 

WHEN READING DBRD IN INPUT MODE,THIS WILL 

SET THE RPLY FOR DBRA(IRR BITS,GROUP 2). 

TEST ALL DATA PATTERNS TO SET IRR BITS 

GROUP1 AND GROUP2 AND FOR THE SETTING OF RPLY 
BITS IN THE GROUP 2 IRR REGISTER BY WRITING IN 
OUTPUT MODE AND READING IN INPUT MODE. 

TEST THAT NO RPLY BITS SET WHEN READING IN OUTPUT 
MODE AND WHEN WRITING IN INPUT MODE. 


TS5O0-151 CSR'S WITH RESET 

SET UP CSR'S IN OUTPUT MODE AND CLEAR 
DIRECTION BIT OUT OF EACH CSR EXCEPT FOR 
CSRA WHICH WILL CLEAR DIR BIT AND I/E BIT. 


LISTING 








18 OPERAT IONAL ot SETTINGS 

28 BASIC DEFINITION 

176 TRAP_CATCHER 

185 Na fee ADDRESS(ES) 

190 ACT11 HOOKS 

204 APT "PARAMETER BLOCK 

226 COMMON TAGS 

269 APT MAILBOX-E TABLE 

318 ERROR POINTER TABLE 
406 PROGRAM START 
402 pe tates a | COMMON TAGS 
492 T1 TEST THAT ALL REGISTERS ARE ADDRESSABLE 
512 T2 TEST CSRA W/R DIR aR Ne CHIP RESET STATUS 


R 

603 TS TEST CSRB W/R DIR BIT, INT CHIP RESET STATUS 
638 T TEST CSRC W/R DIR BIT, INT CHIP RESET STATUS 
677 17 TEST CSRD W/R DIR BIT.INT CHIP RESET STATUS 
712 T10 TEST DBRA W/R IN OUTPUT MODE 
735 T11 TEST DBRB W/R IN OUTPUT MODE 
759 T12 TEST DBRC W/R IN OUTPUT MODE 

™13 TEST DBRD W/R IN OUTPUT MODE 

114 TEST CSR UNIQUENESS,CSRS (A-B),(C=D) 
846 715 TEST CSR yy ts CSRS (A-D),(C-8) 

T16 TEST PORT A TO PORT C INTERACTION 
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CLEAR SINGLE IMR BIT INSTR. 
SET Lg IMR BIT INSTR. 


CLEAR SINGLE IRR BIT INSTR. 
SET SINGLE IRR 3H INSTR. 
CLEAR IRR+IMR INSTR 
OUP See SINGLE IRR+IMR BIT INSTR. 
1646 142 TEST GROUPS FOR GROUP UNIQUEN 55s 
1696 143 TEST STATUS BITS GINT,S2,S1,S0,GP 
1759 » 144 TEST POLLED MODE; CSRS A,AB=OUT C, x* IN,ACTIVE LOW 
1821 145 TEST GROUPS 1,2 IN POLLED MODE.NO REPLY 
1884 146 TEST POLLED MODE;CSRS C,D=OUT A,B=IN,ACTIVE LOW 
1946 147 TEST IRR BITS WITH DATA PAT.,POLLED MODE,ACT. HIGH 
1986 750 TEST CSRA AND CSRB WITH RESET 
2013 151 TEST CSRC AND CSRD WITH RESET 
2053 END OF PASS ROUTINE 
2091 PROGRAM SUBROUTINES 
2125 PATTERNS FOR REGISTER R/W 
2250 SYSMAC ROUTINES 
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2567 ERROR MESSAGE TYPEOUT ROUTINE 

2574 SCOPE HANDLER ROUTINE 

2679 *TY INPUT ROUTINE 
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CVDRCA.P11 18-0°° +79 


-TITLE CVDRCA DRV11J DIAG TST PRT1 
:*COPYRIGHT (C) 1979 

;*DIGITAL EQUIPMENT CORP. 

5 SRAYIARD . MASS. 01754 


! #PROGRAM BY BILL HEAVEY 


< ATHIS PROGRAM WAS ASSEMBLED USING THE PDP=-11 MAINDEC SYSMAC 
; *PACKAGE (MAINDEC=11=DZQAC-C3), JAN 19, 1977, 


000001 $1N =1 
160000 $SWR= 160000 ;;HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 
000003 $SWR=165400 


ae | 
-SBTTL OPERATIONAL SWITCH SETTINGS 


JOU EWR 


2 --.4 .2-' — 3 


NOAUE WM OOO 
— 
oO 
Ww 
+ 
(=) 
o 


—_ 


SWITCH USE 


HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 
INHIBIT Mg sa 


9 LOOP ON ERR 
LOOP ON TEST IN SWR<7:0> 


Be &e 
ae- ep eee 


: 8 
-SBTTL BASIC DEFINITIONS 
ia. he OF THE STACK POINTER *** 1100 *** 


601100 STACK= 
-EQUIV EMT, ERROR ;;BASIC DEFINITION OF ERROR CALL 
-EQUIV IOT,SCOPE BASIC DEFINITION OF SCOPE CALL 
; *MISCELLANEOUS DEFINITIONS 

000011 HT= 11 ;CODE FOR HORIZONTAL TAB 

000012 LF= 12 SICODE FOR LINE FEED 

000015 CR= 15 ::CODE FOR CARRIAGE RETURN 

000290 CRLF= 200 :: CODE FOR CARRIAGE RETURN~LINE FEED 

177776 PS= 177776 ;;PROCESSOR STATUS WORD 

vd .EQUIV PS,PSW 

1777 7% STKLMT= 177774 ::STACK LIMIT REGISTER 

177772 PIRQ= 177772 PROGRAM INTERRUPT REQUEST REGISTER 

177570 DSWR= 177570 SHARDWARE SWITCH REGISTER 

177870 DDISP= 177570 : IHARDWARE DISPLAY REGISTER 
;*GENERAL PURPOSE REGISTE: DEFINITIONS 

£000. 0 RO= %0 7;GENERAL REGISTER 

600001 R1= x1 77GENERAL REGISTER 

C00 002 R2= %2 7 GENERAL REGISTER 

£07093 R3= x3 7 GENERAL REGISTER 

004 R4= %4 7;GENERAL REGISTER 

0095 R5= x5 GENERAL REGISTER 

00009€ RO= %6 7 7GENERAL REGISTER 

0000 97 R7= %7 GENERAL REGISTER 

0000) 96 SP= %6 SISTACK POINTER 

006.” PC= x7 >;PROGRAM COUNTER 


; PRIORITY LEVEL DEFINITIONS 





ee ee ee eo er 
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57 OOGNTO PRO= 0 >I PRiORIVY LEVEL 0 
58 000040 PR1= 40 PRIORITY LEVEL 1 
59 C00100 PR 2= 100 ssPRIORITY LEVEL 2 
60 000140 PR 3= 140 rePRiOWTY LEVEL 3 
61 000200 PR4= 290 PePRIORITY LEVEL 4 
62 000240 FRS= 240 ScPRIORITY LEVE!. 5 
63 000300 PR6= 300 sePRIORITY EVEL 6 
o 000346 PR7= 340 ;ePRIORITY LEVEL 7 
66 3*"'SWITCH REGISTER’’ SWITCH DEFINITIONS 
67 100000 Sw15= 100000 

040000 SW14= 40000 
69 020000 SW13= 20000 
70 010000 SWi2= 10000 
71 0 SW11= 
72 002000 Sw10= 2000 
73 swo9= 1000 
74 000400 SwO8= 400 
75 000200 sw07= 200 
76 000100 SwO6= 100 
77 0 SwO5= 40 
78 000020 SwO4= 20 
79 000010 SwO3= 10 
80 000004 SWO2= 4 
81 000002 Swol= 2 
82 000001 swo0= 1 


92 “EQUIV SWO0.SWO 
BIT DEFINITIONS (BITOO TO BIT15) 
100000 
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SIC DEFINITIONS 
-EQUIV B1T07,B1T7 


1 
53 


— 
— 
Ww 


114 EQUI 1T06,BIT6 

115 EQUIV BITO5,BIT5S 

116 EQUIV BIT04,BIT4 

117 EQUIV B1T03,B1T3 

118 -EQUIV B1T02,BIT2 

119 -EQUIV B1T01,B1T1 

is9 -EQUIV BITOO,BITO 

122 ;*BASIC ‘‘CPU’’ TRAP VECTOR ADDRESSES 

123 004 ERRVEC= 33TIME OUT AND OTHER ERRORS 

124 000010 RESVEC= 10 :sRESERVED AND ILLEGAL INSTRUCTIONS 
125 000014 TBITVEC=14 cy OST 

126 000014 TRIVEC= 14 33 TRACE TRAP 

127 000014 BPTVEC= 14 ; ;BREAKPOINT TRAP (BPT) 

128 000020 IOTVEC= 20 33 INPUT/OUTPUT TRAP (IOT) **SCOPE** 
129 000024 PWRVEC= 24 ;sPOWER FAIL 

130 000030 EMTVEC= 30 ; EMULATOR TRAP (EMT) **ERROR** 
131 000034 TRAPVEC=34 32" TRAP’' TRAP 

132 000060 TKVES= 30 7:TTY KEYBOARD VECTOR 

133 TPv ——s 64 7sTTY PRINTER VECTOR 

134 000240 ri~ s€C=240 7 ;PROGRAM INTERRUPT REQUEST VECTOR 
135 164160 ABASE= 164160 ;BASE ADDRESS 

136 000001 ADEVM= 1 DEFAULT TO ONE DRV11J 

137 0 RDY= B1T15 

138 000400 DIR= BIT8 

+44 001000 IE= BIT9 

141 ;CHIP COMMAND SUMMARY 

142 000020 = 20 ;CLEAR IRR AND IMR 

7 000030 CSIRMR= 30 CLEAR SINGLE IRR AND IMR BIT 
145 000040 CIMR= 40 ;CLEAR IMR 

146 000050 CSIMR= 50 ;CLEAR SINGLE IMR BIT 

147 000060 SIMR= 60 ;SET ALL _IMR BITS 

Ler 000070 SSIMR= 70 SET SINGLE IMR BITS 

150 000100 CIRR= 100 CLEAR IRR 

151 000110 CSIRR= 110 CLEAR SINGLE IRR BITS 

152 000120 SIRR= 120 SET ALL IRR BITS 

1e7 000730 SSIRR= 130 SET SINGLE IRR BITS 

155 000140 CHPISR= 140 CLEAR HIGHEST PRIORITY ISR BIT 
156 000160 CISR= 160 CLEAR ISR 

ie 000170 CSISR= 170 CLEAR SINGLE ISR BIT 

159 000200 LMDO04= 200 ;LOAD MODE BITS MO-M4 

of 000240 LMD57= 240 ;LOAD MODE BITS M5-M7 

162 ;CHIP MODE BIT PRESELECTION 

163 000240 MISR= 240 

164 000244 MIMR= 244 

165 000250 MIRR= 250 

166 000254 MACR= 254 


168 CHIP WRITE PRESELECTION 
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CVDRCA.P11 18-OCT-79 12:53 BASIC DEFINITIONS 
169 000300 PACR= 300 ;PRESELECT AUTO CLEAR REG. FOR WRITING 
170 000260 PIMR= 260 ;PRESELECT IMR REG. FOR WRITING 
4 000340 PVMA= 340 ;PRESELECT VECTOR MEMORY ADDRESS 
be -SBTTL TRAP CATCHER 
4 
175 000000 -= 
176 ;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.+2,HALT'’ 
177 ;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
178 ;*LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
179 000174 -=174 
780 000174 000000 DISPREG: .WORD 0 3sSOFTWARE DISPLAY REGISTER 
181 000176 009000 SWREG: «WORD 0 ; SOFTWARE SWITCH REGISTER 
182 -SBTTL STARTING ADDRESS(ES) 
4 t 000200 sabi 001402 Je 00 @ASTART ;; JUMP TO STARTING ADDRESS OF PROGRAM 
185 000100 000104 000200 000002 “WORD 104,200,2 :1F ‘B EVENT’ ON Q BUS IS CONNECTED 


186 ; IGNORE IT'S INTERRUPT = JUST DO A RT! 
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.SBTTL ACT11 HOOKS 


SL RRARARARARAHARRARARKAAAARAKAKRAARAAARAARAAAARARARRARAKRRERRRAARARAHH 


SHOOKS REQUIRED BY ACT11 


SSVPC=. :SAVE PC 

SENDAD -::1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
=5 

“WORD 0 :£2)SET LOC, 52 TO ZERO . 

1 =$SVPC i RESTORE P 

:=7000 


;LONGEST TEST TIME 

31ST PASS RUN TIME 

sADDITIONAL RUN TIME 
-SBTTL APT PARAMETER BLOCK 


SL AERA EEE REE RE EERE EREREREEERRAERARREARERAKERERERRER EERE 


“SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


en ee See ee ee ee 


- X=. SAVE CURRENT LOCATION 
.=24 :3SET POWER FAIL TO POINT TO START OF PROGRAM 
200 FOR APT START UP 


-=44 : :OINT TO APT INCIRECT — PNTR. 

SAPTHDR ;;POINT TO APT HEADER BLOCK 

-=.$X  ;3;RESET LOCATION COUNTER 
DDSI UISI IOI IOC IOIIIOISISIIDISIUIIOIOIOIIOIDIDIOIOIDIDIIDIITI IDIOTS IDI IDI ID 
7SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT=PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 


$APTHD: 





$HIBTS: .WORD 0 32TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

SMBADR: .WORD S$MAIL sn Tin OF APT eet tear (BITS 0-15) 

$STSTM: .WORD 6, RUN TIM OF LONGEST TES 

$PASTM: .WORD 20. ; RUN TIME IN SECS. OF 1 PASS ON .1 UNIT (QUICK VERIFY) 

$UNITM: .WORD 20. ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
-WORD SETEND- ~sitaIL/2 7 2LENGTH MAILBOX-E TABLE (WORDS) 
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os? .SBTTL COMMON TAGS 
225 RRA AAAREAEARAEREEERRREEE ERE EERO 
226 “STHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
SS6 :*USFD IN THE PROGRAM, 
229 001100 .=1100 
230 001100 $SCMTAG: 32 START OF COMMON TAGS 
231 001100 000000 . WORD 0 
232 001102 000 STSTNM: BYTE 0 ; CONTAINS THE a 4 NUMBER 
233 001103 000 SERFLG: .BYTE 0O +> CONTAINS ERROR FLAG 
234 001104 SICNT: > g : CONTAINS SUBTEST. TTERATION COUNT 
235 001106 000000 $SLPADR: .WORD 0 :: CONTAINS SCOPE LOOP ADDRESS 
236 001110 000000 $LPERR: .WORD 0 ;: CONTAINS SCOPE RETURN FOR ERRORS 
237 001112 000000 SERTTL: D 0 ; CONTAINS TOTAL ERRORS DETECTED 
233 001114 SITEMB: .BYTE 0 7; CONTAINS ITEM CONTROL BYTE 
239 001115 001 SERMAX: .BYTE 1 7: CONTAINS MAX. ERRORS PER TEST 
240 001116 SERRPC: .WORD 0 3: CONTAINS PC OF LAST ERROR ee 
241 001120 000000 $GDADR: .WURD 0 ;: CONTAINS ADDRESS OF ‘GOOD’ DATA 
242 001122 S$BDADR WORD 0 ;: CONTAINS ADDRESS OF ‘BAD* DATA 
243 001124 000600 $GDDAT: .WORD 0 ;: CONTAINS ‘GOOD' DATA 
244 001126 000000 $BDDAT: .WORD 0 : CONTAINS ‘BAD’ DATA 
245 001130 000000 WORD 0 ;RESERVED--NOT [fO BE USED 
°46 001132 000000 D =O 
247 001134 000 SAUTOB: .SYTE 0 7 AUTOMATIC MODE INDICATOR 
248 001135 000 $INTAG: .BYTE 0 32 INTERRUPT MODE INDICATOR 
249 001136 0 «WORD 0 
250 001140 177570 SwWR: . WORD DSWR ; ADDRESS OF SWITCH REGISTER 
251 001142 177570 DISPLAY: .WORD DDISP ; ADDRESS OF DISPLAY REGISTER 
252 001144 177560 $STKS: 177560 ;:TTY KBD STATUS 
253 001146 177562 $TKB: 177562 i: TTY KBD BUFFER 
254 001150 177564 $TPS: 177564 ;i TTY PRINTER STATUS REG. ADDRESS 
255 001152 177566 $TPB: 177566 iz: TTY PRINTER BUFFER REG. ADDRESS 
256 001154 000 $NULL: .BYTE 0 7 CONTAINS NULL CHARACTER FOR FILLS 
257 001155 2 SFILLS: .BYTE e 77 CONTAINS # OF FILLER CHARACTERS REQUIRED 
258 001156 O12 SFILLC: .BYTE 12 ;Z INSERT FILL CHARS. AFTER A ‘LINE FEED" 
259 001157 STPFLG: .BYTE 0 ic TERMINAL AVAI“LABLE’’ FLAG (BI 1<07>=0=YES) 
001160 000000 STIMES: 0 77MAX. NUMBER OF ITERATICNS 
261 001162 000000 SESCAPE :0 7c ESCAPE ON ERROR ADDRESS 
001164 077 $QUES: .ASCII /?/ ; QUESTION MARK 
263 001165 015 SCRLF: .ASCII <15> 3; CARRIAGE RETURN 
264 001166 000012 $LF: eASCIZ <12> ZL INE FEED 
265 LLUTAAA AREA AER E AREA ERR AERA ARE R AREER ET ARERR RATA RE Eee TERRE Eee 
so6 -SBTTL APT MAILBOX-E TABLE 
268 LL ARR ARERR ETRE EER R ERA EREERRAAER RAAT ERR REE HR ERR e EROS 
269 EVEN 
270 001170 SMAIL: 77APT MAILBOX 
271 001170 000000 SMSGTY: .WORD AMSGTY ;:;MESSAGE TYPE CODE 
272 001172 000000 SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
273 001174 000000 STESTN: .wORD ATESTN ;; TEST NUMBER 
274 001176 000000 SPASS: .WORD APASS 32PASS COUNT 
275 001200 000000 SDEVCT: .WORD ADE VCT 2 sDEVICE COUNT 
276 001202 000000 SUNIT: WORD AUNIT ;;1/0 UNIT NUMBER 
277 001206 000000 SMSGAD: .WORD AMSGAD : :MESSAGE ADDRESS 
278 001206 000000 SMSGLG: .WORD AMSGLG ;;MESSAGE LENGTH | 
Slee 
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; APT ENVIRONMENT TABLE 
7 ENV! RONMENT BYTE 
7 ENV RONMENT MODE BITS 
7ZAPT SWITCH REGISTER 
;7USER SWITCHES 
37;CPU TYPE,OPTIONS 
BITS ras, CPU TYPE 
11/06=01,11705=02,11/20=03,11/40=04,11/45=05 
11/70=06,PDu=07, G=10 
BIT 1J=REAL TIME CiLOCK 
BIT Y-FLOATING PGINT PROCESSOR 
ae 8=MEMORY MANAGEMENT 
;HIGH ADDRESS, a, S. BYTE 
+ MEM. TYPE ,BLK& 
MEM. TYPE BYTE -- (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
500 NSEC MOS=003 
3:HIGH ADDRESS ,BLK#1 
MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW UF ‘‘TYPE’’ ABOVE 
; HIGH ADDRESS,M.S. BYTE 
7 MEM. TYPE .BLKA&2 
sr iet aa ADDRESS ,BLK&2 
;HIGH ADDRESS.M.S.BYTE 
7MEM. TYPE ,BLK Kas 
2 IMEM: LAST ADDRESS ,BLK#3 
sHIGH ADDRESS,M.S.BYTE 
> MEM. TYPE ,BLKAG 
7 7MEM.LAST ADDRESS. .BLK&4 
3 INTERRUPT VECTOR#1,BUS PRIORI TY#! 
7, INTERRUPT VECTORA2BUS PRIORI TY#2 
7 BASE ADDRESS OF EQUIPMENT UNDER TEST 
Zi DEVICE MAP 
7 CONTROLLER DESCRIPTION WORDS? 
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315 .SBTTL ERROR POINTER TABLE 

~~ 6 

317 :*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
318 :®THE INFORMATION IS OBTAINED &Y USING THE INDEX NUMBER FOUND IN 
319 s*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE oA . PERTINENT. 
320 *NOTET: IF $ITEMB IS O THE ONLY PERTINENT DATA JS ($ERRP 
#5. S*NOTE2: EACH J TEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
323 i;* EM :iPOINTS TO THE ERROR MESSAGE 

324 * DH szPOINTS TO THE DATA HEADER 

325 * DT > POINTS TO THE DATA 

$59 * DF zzPOINTS TO THE DATA FORMAT 

2 

328 

329 001252 SERRIB: 

330 sERROR 1 

331 001252 016657 EM] sREG TIMEOUT ER 

332 001254 016711 DH] sERRPC TSTNUM BUSADR EXPCT RC VD 

333 001256 017034 DT1: s$ERRPC TSTNUM $BDADR $GDDAT $8DDAT(RS> 
gis 001260 000000 0 

336 sERROR 2 

337 001262 016576 EM2 ;REG READ/WRITE ER 

338 001264 016711 DH1 sERRPC TSTNUM BUSADR EXPCT RCVD 

339 001266 017054 DT ;SERRPC TSTNUM $BDADR $GDDAT $ADDAT(RS) 
oe 001270 000000 0 

342 sERROR 3 

343 001272 016620 EM3 ; IRR REG ER 

344 001274 016711 DH1 sERRPC TSTNUM BUSADR EXPCT RCVD 

345 001276 017034 DT1 s$ERRPC TSTNUM $BDADR $GDDAT $S8DDAT(RS) 
as 001300 000000 0 

38 SERROR 4 

349 001302 016633 EM, ;ACR REG ER 

55 001304 016711 DH1 ~ERRPC TSTNUM BUSADR- EXPCT RCVD 

351 001306 017034 pT1 ;SERRPC TSTNUM S$BDADR $GDDAT $8DDAT(RS) 
a 001310 000000 8) 

354 SERROR 5 

355 001312 016646 EMS ; IMR REG ERROR 

356 001314 016711 DH] scRRPC TSTNUM BUSADR EXPCT RC VD 

357 001316 017034 DT? s$ERRPC TSTNUM $BDADR $GDDAT $ADDAT(RS) 
<5 001320 000000 0 

360 sERROR 6 

361 001322 016661 EMé ;I1SR REG ERROR 

362 001324 016717 CH? ZERRPC TSTNUM BUSADR EXPCT RCVD 

363 001326 017034 DY sSERRPC TSTNUM $BDADR $GDDAT $x8DDAT(RS) 
364 001330 000000 0 

365 

366 § 

367 ZERROR 7 

368 001332 016674 —M7 SCHIP STAT ER 

369 001334 016711 DH? SERRPC 3 TSTNUM BUSADR EXPCT RCVD 

370 001336 017034 pT? ; ZSERRPC TSTNUM $RBDADR $GDDAT $BDDAT RS) 


x 
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371 901340 000000 0 

372 

373 

356 : BUS REGISTER ADDRESS POINTERS 
376 

37? 001342 164160 DRCSA: ABASE 

378 001344 164162 DRDBA: ABASE+2 

379 001346 164164 DRCSB: ABASE+4 

380 001350 164166 DRDBB: ABASE+6 

31 001752 164170 DRCSC: ABASE+10 
32001254 164172 DRDBS: ABASE+12 
383001356 «164174 DRCSD: ABASE+14 

384 001360 164176 DRDBD: ABASE+16 

386 

44 ; COMMON PROGRAM {| OCATION(S) 
389 001362 000000 TSTNUM: 0 SCONTAINS TEST NUMBER ON ERROR 
390 901364 000001 pmaP: 1 

39° 001 000000 INTFLG: .WORD 0 

392 00137C + 000000 KXDP:  iWORD 0 

793 (001372 900000 IMRLOC: :WORD 0 

394 001374 000007 iSRLOC: WORD 0 

205 901%7E 00000 IRRLOC: WORD ¢ 

%6 001400 000/11) ACRLOC: .WORD 0 
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397 .SBTTL PROGRAM START 
398 007402 START: 
399 ~SBTTL INITIALIZE THE COMMON TAGS 
400 : Zi CLEAR THE COMMON TAGS ($CMTAG) _AREA 
401 001402 012706 001100: MOV ASCMTAG,RE sFIRST LOCATION TO BE CLEARED 
402 061406 005026 CLR (R6)+ + CLEAR MEMORY LOCATION 
403 001410 022706 001140 CMP #SWR,RE ; ; DONE? 
404 001414 001374 td -6 §¢LOUP BACK IF NO 
405 001416 012706 001100 #1100,SP SETUP THE STACK POINTER 
406 221N1 riaLize A FEW VECTORS 
407 001422 012737 015142 000020 #S$SCOPE ,AMIOTVEC ;;10T ee FOR SCOPE ROUTINE 
408 001430 012737 000340 000022 mov #340, ae lOTVEC +2 je TEVEL 
409 001436 012737 014614 000030 MOV ASERROR, Q4EMTVEC +; EMT VECTOR FOR ERROR ROUTINE 
410 001444 012737 000340 000032 MOV #340, avEMTVEC+2 + ¢LEVEL - 
411 001452 0172737 016402 000034 MOV #$ TRAP, @ATRAPVEC ;; TRAP VECTOR FOR TRAP CALLS 
412 001460 012727 000340 000036 MOV #340, @ATRAPVEC+2: LEVEL 7 
413 001466 012737 016176 000024 MOV ASPWRON , @APWRVEC ;;POWER FAILURE VECTOR 
414 001474 012737 000340 000026 MOV #340, QAPWRVEC+2 sslEVEL 7 
415 001502 005037 001160 CLR STIMES 2s INITIALIZE NUMBER OF ITERATIONS 
416 001506 005037 001162 CLR $SESCAPE 7CLEAR THE ESCAPE ON ERROR ADDRESS 
417 001512 112737 000001 001115 MOVB #1, SERMAX : ALLOW ONE ERROR PER TEST 
418 001520 012737 001520 001106 MOV #.,$LPADR s INITIALIZE THE LOOP ADDRESS FOR SCOPE 
419 001526 012737 001526 901110 MOV #.,$LPERR * SETUP THE at LOOP ADDRESS 
420 si SIZE FOR A HARDWARE SWITCH REGISTER, IF NOT FOUND OR IT IS 
421 7 EQUAL TO A ‘'~1'', SETUP FOR A SOF TWARE SWITCH REGISTER. 
422 001534 013746 000004 MOV @FERRVEC ,- (SP) SAVE ERROR VECTOR 
423 001546 012737 001574 000004 MOV #64$, aFERRVEC SISET UP ERROR VECTOR 
424 001546 012737 177570 001140 MOV #DSWR, SWR i FOR A HARDWARE SWICH REGISTER 
425 001554 012737 177570 001142 MOV #DDISP, DISPLAY is AND A HARDWARE gt REGISTER 
426 901562 022777 177777 177350 CMP #- 3 -aSwR zs TRY TO REFERENCE HARDWARE SwWR 
427 001570 001012 BNE 668 > S BRANCH IF NO TIMEOUT TRAP OCCURRED 
428 : «AND THE HARDWARE SWR IS NOT = -! 
429 001572 000403 BR 65$ on IF NO TIMEOUT 
430 001574 012716 001602 64$: MOV #65$, (SP) ;SET UP FOR TRAP RETURN 
431 001600 000002 RT] 
432 001602 012737 000176 001140 658: MOV MSWREG, SWR 7zPOINT TO SOFTWARE SwWR 
433 001610 012737 000174 001142 MOV #DISPREG, DISPLAY 
rt 001616 012637 000004 66$: MOV (SP)+,@MERRVEC ;;RESTORE ERROR VECTOR 
436 001622 005037 001176 CLR $PASS :CLEAR PASS COUN’ 
437 001626 132737 000200 001211 BITB MAPTSIZE, SENVM sTEST USER SIZE UNDER APT . 
438 001634 001403 BEQ 67$ ZYES,USE NON-APT SWITCH 
439 001636 012737 001212 001140 MOV #ESWREG, SWR = INO.USE APT SWITCH REGISTER 
440 001644 67%: 
441 001644 005037 001172 CLR $FATAL ;CLEAR ERROR NUMBER 
442 001650 005037 001170 CLR SMSGTYP i CLEAR MESSAGE TYPE 
443 001654 005037 001174 CLR STESTN ;CLEAR TEST NUMBER 
444 Z CHECK OPES 4TING ENVIRONMENT 
445 001660 005737 000042 TST a442 ZARE WE IN ACT/XXDP AUTO MODE ? 
446 001664 001410 BFQ 1$ * BRANCH IF NO 
447 001666 023737 000042 000046 CMP O442 , 046 :1S IT ACT AUTO MODE? 
448 061674 001410 BEQ e$ * BRANCH IF YES 
449 001676 012737 177777 001370 MOV 4-7) .XXDP ;SET XXDP CHAIN MODE INDICATOR 
450 001704 000404 BR 2$ 
451 001706 123727 001210 000001 '$: CMPB SENV 47 SARE WE IN APT AUTO MODE ? 

3$ ;BRANCH IF NO 





| 
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112737 


000001 


177777 
001134 
001370 
16530 
001134 


001202 


012624 
001342 


000002 
001362 


001100 
001126 


001202 
000340 


001124 


060006 
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001134 


001364 
001364 


007 364 


001200 


000004 


000004 


INITIALIZE THE COMMON T 


2$: MOVB = #1, $AUTOB :SET AUTO MODE INDICATOR 
-PRINT TITLE IF NO] IN ACT OR APT AUTO MODE 
S$: INC sFIRST TIME? 
BNE Ss. “SKIP TITLE IF NO 
TST $AUTOB “ARE WE IN AUTO MODE? 
BEQ 4$ ‘BRANCH TO TITLE TYPEOQUT IF NOT 
TST XXDP ‘1S THE AUTO MODE UNDER xXxDP? 
BEQ c¢ SSKIP TITLE IF NOT 
4$: TYPE TITLED “PRINT OUT THE TITLE 
TYPE STLCABL *PRINT 'DRV11J CABLE REQ'D'' 
:GET THE VALUE IN THE SOFTWARE SWITCH REGISTER 
S$: TST $AUTOB ;ARE WE IN AUTOMATIC MODE? 
BNE START 1 ‘BRANCH IF YES 
GTSwR TASK FOR SWR INPUT FROM CONSOLE 
START1: CLR $UNIT [CLEAR UNIT NUMBER 
MOV SDE VM, DMAP “POSITION OF DRV11-J'S 


BIC #177760, DMAP ;UP_TO 4 DRV11-J'°S ONLY 
MOV $BASE ,R1 ;GET BASE ADDRESS 


MOV R1,DRCSA [MAKE BUS REG. POINTER = $BASE 

BIT #1 DMAP :1$ FIRST DRVi1-J SELECTED? 

BNE NE XPAS “YES 

JMP NXDEV1 ZADVANCE BASE DRV11-J ADDRESS 
NEXPAS: MOV #DRCSA,RO :SET UP REGISTER ADDRESS POINTERS 
NFKPAT: MOV R1,(RO)+ [LOAD EM,R1 = DRV11-J CSRA ADDRESS 

ADD #2.,R1 [DO POINTERS FOR ALL REGS, A THRU D 

CMP #DRDBD+2,RO ALL DONE? 

BNE NE XPA1 :BR IF NOT 

MOV #STACK, SP TALWAYS RESET STACK 

MOV #$BDDAT RS ZINIT RS WITH $BDDAT 

MOV SUNIT,SDEVCT | LOAD APT COUNTER WITH UNIT NO. 

MIPS  —- #PR7 ZSET PRIORITY TO 7 
FFARR AAA AA ARAAEA RARER KAAERERERAEAREHERHAEREREAAH REEkKTARERE EE 
S*TEST 1 TEST THAT ALL REGISTERS ARE ADDRESSABLE 


5G SAAAAAAARARERAAARARAARARAAARRTERARAAARAARARERER HS REERKHERRKERHREE 


TST1: SCOPE 


CLR — =NO DATA COMPARE 
CLR ;NO DATA COMPARE 
MOV as, @#ERRVEC ;SET UP TIMEOUT RETURN ADDRS 
MOV DRCSA,RO ;SET UP 1ST DRV11 BUS ADRS 
MOV #8. ,R1 ;SET UP REG COUNT 
1$ MOV RO, S$BDADR [SET UP CURRENT DRV BUS ADRS 
CLR (RO) SEE IF THERE 
TST (RO) + RUMP T xT 
DEC R ;COUNT 8 OF THEM 
BEQ 3$ ;BR IF ALL DONE 
BR 1$ TRY NEXT 
2$: CMP [r*, (SP)+ FIX STACK SINCE NO RTI 
ERROR BUS ADRS INDICATED DID NOT RESPOND 
3$: MOV PERRVEC 2, @#ERRVEC RESTORE LOC 4 


GL eAeeaaaaaeranteaneaenenaeaaeaaaRnetanaeananenaaaeaeaneeaseaereneee 


PAGE: 0027 | 


e; 
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CVDRCA.P11 18=0CT=79 12:53 T2 TEST CSRA W/R DIR BIT,INT. CHIP RESET STATUS 
509 s*TEST 2 TEST CSRA W/R DIR BIT, INT. CHIP RESET STATUS 
510 fF TRAP AARAAAAAAAARARORRARAARAARAAARARARRARARAAAARARAARARRARHARAAAAA 
511 002152 000004 TST2: SCOPE 
512 002154 013700 001342 MOV DRCSA,RO GET CSR ADDRESS 
513 002160 013701 001352 MOV DRCSC,R1 STORE CSRC ADDRESS 
514 002164 005010 CLR (RO) INIT CSRA 
515 002166 005011 CLR (R1) INIT CSRC 
516 002170 010037 001122 MOV RO, $BDADR : STORE CSR_ ADDRESS 
517 SET ee hada DATA 
518 002174 012737 100700 001124 MOV ARDY !DIR!BIT?! Bite, $GDDA 
519 002202 112760 000001 000001 MOVB #B1T0,1(RO) SET DIRECTION BIT 
520 002210 011015 MOV (RO), (R5) [GET CSR DATA 
521 002212 042715 000007 BIC #7,(R5) CLEAR UNDEFINED BITS 
S22. 002216 9023715 001124 CMP $GDDAT, (RS) 
523 002222 001401 BEQ 100$ 
524 002224 104002 ERROR 2 :CSRA_ERROR 
525 002226 010137 001122 100$: MOV R1,$8DADR STORE CSRC ADDRESS 
526 002232 012737 000200 001124 MOV #BIT7,$GDDAT sSTORE EXPECTED 
527 0022460 011115 MOV (R1),(R5) STGRE CSRC 
528 002242 042715 000007 BIC #7, (RS) CLEAR UNDEFINED BITS { 
529 002246 023715 001124 CciaP $GDDAT, (RS) 
530 002252 001401 BEC 1$ 
531 002254 104002 ERROR 2 :CSRC ERROR 
532 902256 010037 001122 >. TS MOV RO, $BDADR ;CSRA ADDRESS 
533 002262 012737 100300 001°24 MOV #RDY 'BIT7!BIT6,$GDDAT 
534 002270 105060 000001 CLRB 1<ROQ) CLEAR CSRA DIR BIT 
535 002274 011015 MOV (RO) , (RS) ;READ CSR 
536 002276 042715 000007 Bic #7,(R5) [CLEAR UNDEFINED BITS 
537 002302 023715 001124 CMP $GDDAT, (RS) 
538 002306 001401 BEQ 2s 3:BR IF EQUAL £ 
539 002310 104002 ERROR 2 
540 002312 012737 000300 001124 2$: MOV #B1T7! py hh f $GDDAT 
541 002320 112761 000001 000001 MOVB #B1T0,1 :CSRC TO OUTPUT MODE 
542 002326 011015 MOV gt (RS) [READ CSRA 
543 002330 042715 000007 BIC #7, (R5) CLEAR UNDEFINED BITS 
544 002334 023715 001124 CMP $GDDAT, (R5) CHECK IF RDY BIT CLEARED 
545 002340 001401 BEQ TST3 7;BR IF EQUAL 
79 002342 104002 * ERROR 2 ;CSRA REG ERROR 
548 DDO REE RE REE REE ERE REET RRR ee 
549 ;*TEST 3 TEST CSRA INT. ENABLE BIT 
550 LLU REE REA EEEEEA RR ERARA EE E REET ERA ee 
551 002344 000004 TST3: SCOPE 
552 002346 004737 013002 JSR PC,CLRCSR :CLEAR CSR REGISTER 
553 002352 0137 001342 MOV DRCSA,RO [GET CSRA ADDRESS 
554 002356 013701 001352 MOV DRCSC,R1 ZGET CSRC ADDRESS 
555 002362 112761 900001 000001 MOVB #B1T0.1(R1) A DIRECTION a CSRC 
5 002370 010037 001122 MOV RO, $DADR 7a CSRA ADDRESS 
557 002374 012737 001300 001124 MOV weiT9:B1T7! BIT6, $CDDAT 
558 002402 012710 001000 MOV #1E,(RO) SET INTERRUPT ENABiE BIT 
559 002406 011015 MOV (ROS, (R5) 
560 002410 042715 000007 BIC #7,(R5) CLEAR UNDEFINED BITS 
561 002414 023715 001124 CMP $GDDAT, (R5) 
562 002420 001401 BEQ 1$ 
563 002422 104002 ERROR 2 zINT. ENABLE ERROR,CSRA 

564 002424 012737 000300 001126 1$: MOV = #BIT7!BIT6, $GDDAT 
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565 002432 105060 
566 002436 011015 
567 002440 042715 
568 002444 023715 
569 002450 001401 
572 002452 104002 
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001124 
000001 


001124 


001124 
000001 


001124 
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J FRA AREAAREAARARERAAEAERAERARAEARARERRKO TREE ARRRKERRE EH ERE EE 
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CLEAR I/E BIT 
CLEAR UNDEFINED BITS 


77BR IF EQUAL 
;CSRA ERROR 


;CLEAR CSR REGISTERS 
2GET CSRA ADDRESS 
;SAVE CSRA ADDRESS 
SEXPECTED I/E,DIR 
;SET I7E AND DIR BIT 


:CLEAR UNDEFINED BITS 
;CSRA ERROR 


7 7LEAR UNDEF INEL SITS 


3; AR IF EQUAL 
7; (SRA ER20R 


TEST CSRB W/R Dif BIT,IN” CHIP RESET STATUS 


LEAR (32 REGISTERS 
IGET CSR ADDRESS 
GET CSRD ADDRESS 


;SET DIRECTION SI7 
:GET CSRB DATA 


;CSRB_ ERROR 

;S)ORE CSRD ADDRE' 
STORE EXPECTED 
;RE4D CSRD 

eCERD ERROR 

TSTORE CSRA ADDRESS 


2D EXPEC ED 
SCLEAR CSR DIR BIT 
TREAD CSR 


18-0CT=+79 
ST CSRA INT. ENABLE 8 
CLRB 1(RO) 
MOV (RO), (RS) 
BIC #7, (RS) 
CMP $GDDAT, (R5) 
BEQ TST4 
ERROR 2 
S*TEST 4 TEST CSRA I/E,DIR BIT 
TST4: SCOPE 
JSR PC,CLRCSR 
MOV DRCSA,RO 
MOV RO. SADADR 
MOV #101700, $GDDAT 
MOVB #BIT1'IBITO, 1(RO) 
MOV (RO), (RS) 
BIC a7, (R5) 
CMP $GDDAT, (R5) 
BEQ 1$ 
ERROR 2 
1$: MOV #RDY'BIT7'BIT6, SGDDAT 
CLR (RO) 
MOV (RO), (RS) 
BIC #7, (R5) 
CMP $GDDAT, (RS) 
BEQ TST5 
ERROR 2 
se 1EST 5 
TSTS: SCOPE 
JSR PC,.CLRCSR 
MOV DRCSB,RO 
MOV DRCSD,P1 
MOV RO, $BDADR :$ 
MOV #RDY ‘DIR, $GDDAT ;SE 
MOVB #B1T0,1(RO? 
MOV (RO), {RS 
CMP SGDDAT, (RS) 
BEQ 100$ 
ERROR 
100$: MOV R1,$8DADR 
CLR SGDDAT 
MOV (R1),(R5) 
CMP SoDDAT, (RS 
BEQ 1$ 
ERROR 2 
MOV RO, $BDADR 
MOV #RDY ,SGDDAI 
CLRB 1(RQ) 
MOV (RO), (R5) 
CMP SGDDAT, (R5) 


PAGE : 


me Ce 


PSEA A PS 2 28 ey UR eee 
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CVDRCA.P11 —-18=0CT-79 12:53 T5 T CSRB W/R DIR 3IT,INT CHIP RESE* STATUS 
621 002670 007401. BEQ 2$ ::3R IF EQUAL 
602 M2672 104002 | ERROR 2 | 
623 002674 005037 001124 28: CLR $GDDAT STORE EXPECTED | 
624 002700 112761 000001 000001 MOVB #BITG,1<R1) =CSRD TO OLITPUT MODE 
625 002706 071015 MOV (RO) , (R5) TREAD CSRB 
626 002710 023715 001124 CMP $GDDAT , (RS) ROY BIT CiEARED | 
627 002714 01401 BEQ TST6 389 IF EQUAL 
GR O0c716 14002 ERROR 2 CSB REC ERROR 
630 CCAR RARER RARER KA TRAD PARAS RSALASS SALAS SSE R SRE ERE Se eee Se 
631 Z*TEST 6 TEST CSRC W/R DIR EIT, INT CHIP RESET STATUS 
632 WeRAASAARARRRAASARSSLALASE SERS ES ERLE SEE SRR Se tees Fee ee ee ee oe 
633 002720 000014 * $§16: SCOPE 
y84 002722 00473” 013002 JSR PC, CLACSR SCLEAR CSF REGISTERS 
635 002726 013700 001352 MOV DRCSC RO GE i CSR ADDRESS 
635 002732 012761 001342 MOV DRCSA.R? GE! CSRAADOPE SS 
637 902736 019037 001122 MOV RO, $DADR STORE CSR ADDRESS 
002742 912737 100600 001124 MOV ARDY !DIR!BIT?, SGDDAT 
639 002750 312760 000001 000001 MOVB = #B1TO,1(RO) SET DIRECTION BIT 
640 002756 971015 MOV (RO), (RS) GET CSR DAIA 
641 002760 %2715 900007 BIC #7, (RS) [CLEAR UNDEFINED BITS 
642 002764 3:1! 901124 CMP $sbDAT. (RS) 
£48 002770 140° BEQ 10)$ 
002772 10400; ERROR 2. 
45 002774 91013’ 001122 100$: MOV ,SBDADR {STORE CSR ADLRESS 
46 003000 01272" 000300 001124 MCV Wait? 'B116 SGDDAT 
647 003005 0111173 MOV (27), (R5) ;READ CSRA 
348 003019 042715 000007 BIC £7. (RS) [CLEAR UNDEFINED & TS 
649 03014 (22775 001124 CMP ©GDDAT, (RS) 
650 00302) (C1401 3EC “§ CHECK CSRA 
651 003022 1(4002 ERF OR CSA EXROR 
62 003024 0°00 7 991122 $ MOV RO, SBDADR [STORE CSR ADDRES! 
653 00: 2777 IH 001126 MOV #RDY'BIT7,SGDDAT:STCFE EXPECTED Dé lA 
654 003036 115060 060001 CLRB —-1(RO) :CLEAR CSR DIR S17 
65 003042 9°10°5 MOV (RO), (R5) "READ (SR 
656 00 1427 5 00007 BIC #7, (R5) TCLEAR UNDEFINED 31 | 
657 003050 923775 (01126 CMP S$GDDAT, (RS) 
653 (003054 O0147 REQ 2$ ;;BR IF EQUAL 
6°9 003056 10460)2 __ ERROR 2 
460 003050 012; 57 00200 00 24 2s: MOV YB1T7.$GDDAT — ; EXPECED DAT: 
661 903066 Vi2%>? 006001 Ov 001 MOVB  #BITO.1(R1) :CSRA i? OUTPU MODE 
W376 O01 MOV (RO), (5) TREAD CsRC 
663 903076 042.1) 090007 BIC #7, (R5) TCLEAR UNDEFIN@0 BITS 
003102 023715 O21 124 CMP SGDDAT, (RS) SRDY BIT CLEARED 
665 003106 6140 BEQ TST? BR IF EQUAL 
664 903110 19400? ERROR 2 :CSRC REG ERROR 
058 STR AAA AA RAR AE RERA EEE AAEREERREREERAEAAERERERERN ERERERREAERERREEREKEEE EE 
663 *TEST 7 TEST CSRD W/R DIR BIT, INI CHIP RESET STATUS 
679 SEARED CREE EERE RRR RR 
671 903112 (00004 7$17: SCOPE 
672 003114 00473? 013002 JSR PC.CLRCSR ICLEAR CS? REGISTERS 
673 003120 012700 00155¢ MOV DRCSD RO GET CSR ADDRESS 
674 03124 013701 991326 MOV DRCSB.R1 SCSRB ADDRESS 
75 003130 01002? 001722 . MOV RO, $BDADR TSTORE CSR ADDRESS 
6% 003134 012737 100402 001124 MOV #RDY'DIR,SGDDAT SET UP EXPECTED DATA 
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12:55 

000001 
001124 
001122 
001124 
001 12- 
001122 
1000.30 
000001 
00 124 


901124 
000001 


061124 


MAC Y11 ee see 


000001 


00'12é 


600007 


001110 


000001 


001110 


rT Pies 79 


MOVB ne Me 1(R9) 
MOV (RO) .(R5) 
CMP tcDDAT. (R5) 
BEQ 100$ 
ERROR 

100%: MOV R1, SBDADR 
CLR eh iin 
MOV (R1), 
CMP $GDDAT RS) 
BEQ 1$ 
ERROR 2 

‘$: V RO,$E10R 
MOV ARDY, §S0DA 
CLRB 1s 0) 
MOV (RO), 5) 
CMP $GDDAT, (R5) 
BEQ 2$ 
ERROR 

2$: CLR SGDDAT 
MO #BITO,1(R1) 


VB 
MOV (RO) ,(R5) 
CMP $GDDA! , ‘R5) 
BEQ gah | 
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12:58 PAGE 16 
T CSRD W/R DIR BIT, INT CHIP RESET STATUS 


:SET DIRECTION BIT 
GET CSR DATA 


STORE CSRB ADDRESS 
STORE EXPECTED 


;CSRB ERROR 

;STORE CSRD ADDRESS 
;STORE EXPECTED 
;CLEAR CSR DIR BIT 
sREAD CSR 


33BR IF EQUAL 


EXPECTED 
:CSRD TO OUTPUT MODE 
;READ CSR 


:RDY BIT CLEARED 
+;BR IF EQUAL 
:CSRO REG ERROR 


FD RRR REE KEKE EKER EKER RRR HK 


z*TEST 10 


TEST DBRA W/R IN OUTPUT MODE 


LR ERE EKER ERE EKER EEE REE EEE 


TST10: 
JSR PC,CLRCSR 
MOV #BEGPAT ,R3 


MOV #1$,$LPERR 
MOV DRCSA,R 
MOV DRDBA ,R1 
MOV R1,$BDADR 
MOVB #B1T0,1(RO) 
1$ MOV | mate 


(R 

(R3) ,(R1) 
R1),(R5) 
$GDDAT , (R5) 
$ 


2$: (R3)+ 
* etteaaaal 


:CLEAR ALL CSRS 

ZGET DATA PATTERN TABLE 
:SET UP SCOPE ADDRESS 
[GET CSRA 

[GET DBRA ADDRESS 

[STORE DBRA ADDRESS 

7SET CSRA IN OUTPUT MODE 
SAVE EXPECTED DATA 


[CLEAR DBRA 
WRITE INTO DBRA 
; DBRA 


/R_ ERROR 
z INC te NEXT PATTERN 
[CHECK FOR END 

:DO NEXT PATTERN 


WEG RRAASALSZALA£LLLASSALAAASL EARS L AERA R RAL ALAR SAR RRR RASA S SSS SY 


S*TEST 11 


TEST DBRB W/R IN OUTPUT MODE 


J LARA AREER REE REREEREREEEEEEEEKEEER EERE EERE KH 


TST11: 
PC,CLRCSR 
#BEGPAT .R3 
#1$,$LPERR 
DRCSB,RO 


DRDBB ,R1 


CLEAR ALL CSRS 


GET DATA PATTERN TABLE 
;SET UP SCOPE ADDRESS 


: CSRB 
;GET DBRB ADDRESS 
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CVDRCA.P11 «18-OCT-79 12:53 T11 T DBRB W/R IN OUTPUT 
733 003404 010137 001122 MOV 1,$BDA :STORE DBRB ADDRESS 
734 003410 112760 000001 000001 MOVB walTo PRO) ‘SET CSRB IN OUTPUT MODE 
735 003416 011337 001124 1$: MOV (RS) , $GDDAT ‘SAVE EXPECTED DATA 
736 003422 005011 CLR (R1 ‘CLEAR DBRB 
737 003424 051311 BIS (RS). (RT) ‘WRITE INTO DBRB 
738 003426 011115 MOV (R1), (R5) TREAD DBRB 
739 003430 023715 001124 CMP $GDDAT, (RS) ‘CHECK W/R DBRB 
740 003434 001401 BEQ 2$ ‘NEXT PAT. IF EQUAL 
741 003436 104002 ERROR 2 ‘DBRB W/R ERROR 
742 003440 005723 2$: TST (R3)+ SINC FOR NEXT PATTERN 
743 003442 020327 013410 CMP R3,#ENDDAT ‘CHECK FOR END 
744 003446 001363 BNE 1$ ‘DO NEXT PATTERN 
re 
747 FD III II IIR EERE RRR EREREEREEERREEEREEERREEREER EER 
748 SeTEST 12 TEST DBRC W/R IN OUTPUT MODE 
749 CII III IOI IOI IOI III IOI IIIT TO TOTTI TOTO Tk 
750 003450 000004 TST12: SCOPE 
751 003452 004737 013002 JSR PC,CLRCSR :CLEAR ALL CSRS 
752 003456 012703 013110 MOV #BEGPAT ,R3 “GET DATA PATTERN TABLE 
753 003462 012737 003512 001110 MOV #1$,$LPERR ‘SET UP SCOPE ADDRESS 
754 003470 013700 001352 MOV DRCSC,RO “GET CSRC 
755 003474 013701 001354 MOV DRDBC.R1 ‘GET DBRC ADDRESS 
756 003500 010137 001122 MOV R1,$BDADR ‘STORE DBRC ADDRESS 
757 003504 112760 000001 000001 MOVB weiTo, 1(RO) “SET CSRC IN OUTPUT MODE 
758 003512 011337 001124 1$: MOV (R3) ,$GDDAT ; SAVE EXPECTED DATA 
759 003516 005011 CLR (R1) “CLEAR DBRC 
760 003520 051311 BIS (RS), (RT) ‘WRITE INTO DBRC 
761 003522 011115 MOV (R1).(R5) TREAD DBRC 
762 003524 023715 001124 CMP $GDDAT, (RS) *CHECK W/ 
763 003530 001401 BEQ 2$ ‘NEXT PAT. IF EQUAL 
764 003532 104002 ERROR 2 *DBRC W/R’ ERROR 
765 003534 005723 2$: TST (R3)+ s INC FOR NEXT PATTERN 
766 003536 020327 013410 CMP R3,HENDDAT SCHECK FOR END 
767 003542 001363 BNE 1$ :DO NEXT PATTERN 
rs 
770 FL I RR ERRE RE RREEERRE ERE EE REE E REAR REEREER EERE EH 
771 S*TEST 13 TEST DBRD W/R IN OUTPUT MODE 
772 FLARE REE A REE E RE REEREERE RE RRER EER E ERE EERER ERE ARERR ERE RE 
773 003544 000004 1ST13: SCOPE 
774 003546 004737 013002 JSR PC,CLRCSR :CLEAR ALL CSRS 
775 003552 012703 013110 MOV WBEGPAT ,R3 :GET DATA PATTERN TABLE 
776 003556 012737 003606 001110 MOV #1$,$LPERR “SET UP SCOPE ADDRESS 
777 003564 013700 001356 MOV DRCSD.RO 7GET CSRD 
778 003570 013701 001360 MOV DRDBD.R1 GET DBRD ADDRESS 
779 003574 010137 001122 MOV R1,$BDADR ORE DBRD ADDRESS 
780 003600 112760 000001 000001 MOVB = #B1T0,1(RO) ‘Se CSRD IN OUTPUT MODE 
781 003606 011337 001124 1$: MOV (3), $GDDAT TSAVE EXPECTED DATA 
782 00312 005011 CLR [CLEAR DBRD 
783 003614 051311 BIS RS). (R1) “WRITE INTO DBRD 
784 003616 011115 MOV (R1).(R5) *READ DBRD 
785 003620 023715 001124 CMP $GDDAT, (RS) “CHECK W/R DBRD 
786 003624 001401 B 2$ NEXT PAT IF EQUAL 
787 003626 FRROR “DBRD W/R 


104002 2 ERROR 
788 003630 005723 2$: TST (R3)+ INC FOR NEXT PATTERN 





B 
CVDRCA DRVI1J DIAG TST PRTI MACY11 30A(1052) 18-OCT-79 12:58 PAGE 18 PAGE: 0027 
CVDRCA.P11 18-OCT=79 12:53 113 TEST DBRD W/R IN OUTPUT MODE 


789 003632 020327 013410 CMP R3,AENDDAT ;CHECK FOR END 
790 003636 001363 BNE 1$ :DO NEXT PATTERN 


. @ 
MACY11 30A(1052) 18-OCT-79 12:58 PAGE 19 PAGE: 0028 


CVDRCA DRV11J DIAG TST PRT1 
CVDRCA.P11 18=-0CT=79 12:53 113 TEST DBRD W/R IN OUTPUT MODE 

791 
792 
793 RRR EERE EERE RRR EERE EET EREEEREEREEREREE EEE ER 
794 T*TEST 14 TEST CSR UNIQUENESS,CSRS (A-B),(C-D) 
795 RII ISIS IUIIIUIIIIUIIOIIUIUIII IIIS IOC Dn nn ttn tt ts 
796 003640 000004 TST14: SCOPE 
797 003642 004737 013002 JSR PC,CLRCSR ;CLEAR ALL CSPS 
798 =CSRA = RO 
799 ;CSRB = R1 
800 SICSRC = R2 
801 /;CSRD = R35 
802 003646 112760 000003 000001 MOVB #3,1(RO) ' ;CSRA OUTPUT MODE.1/E 
803 003654 112763 000001 000001 MOVB #5110. a | 3CSRD QUTPUT MODE 
804 003662 010037 001122 MOV 
805 003666 012737 101700 001124 MOV #161700 SGODAT sEXPECTED DATA 
806 003674 011015 MOV (RO), (R5) 
807 003676 042715 000007 BIC #7,(R5) ;CLEAR UNDEFINED BITS 
808 003702 023715 001124 CMP $SGDDAT, (R5) 
809 003706 001401 BEQ 1$ 
810 003710 104002 ERROR 2 ;CSRA ERROR 
811 003712 010137 001122 i$: MOV R1,$BDADR ; CHECK CSRS 
812 003716 005037 001124 CLR SGDDAT 
813 003722 011115 MOV (R1), (RS) 
814 003724 023715 001124 CMP $GDDAT, (R5) 
815 003730 001401 BEQ 2s 
816 003732 104002 ERROR 2 7CSRB ERROR 
817 003734 010337 001122 2$: MOV R3,$8 
818 003740 012737 100400 001124 MOV #100200, SGDDAT 
819 003746 011315 MOV (R3), (R5) 

003750 023715 001124 CMP ScDDAT. (R5) 
821 003754 001401 BEQ 3$ 
822 003756 104002 ERROR 2 ;CSRD ERROR 
823 003760 010237 001122 3$: MOV R2,$BDAD sCHECK CSRC 
824 003764 012737 000200 001124 MOV #BIT7, SCDDAT EXPECTED 
825 003772 011215 MOV (R2), (R5) 
826 003774 042715 000007 BIC #7,(R5) 
827 004000 023715 001124 CMP SGODAT. (R5) 
828 004004 001401 BEQ TST15 BR IF EQUAL 
829 004006 104002 ERROR 2 = ESRC ERROR 
831 LLU AEE AREER EERE ERE ERE EERE REE EKER ERE ee 
832 ;*TEST 15 TEST CSR UNIQUENESS,CSRS (A-D),(C-8) 
833 LLU ARR AR ERE AREER EERE RARER RARER RRR E RENTER ERR ee 
834 004010 000004 TST15: SCOPE 
835 004012 004737 013002 JSR PC,CLRCSR +34 ALL CSRS 
836 :CSRA = RO 
837 7 CSRB = R1 
838 iCSRC = R2 
839 ;CSRD = R3 

004016 7112760 000003 000001 MOVB #3,1(RO) :CSRA OUTPUT, I/E 
841 004024 112761 000001 000001 MOVB #81 10. a" ;CSRB OUTPUT MODE 
842 004032 010037 001122 MOV ;CSRA ADDRESS 
843 0040 012737 101700 001124 MOV BO1SD0. SGDDAT 
844 004044 011015 MOV (RO), (R5) 
845 0060466 042715 000007 BIC #7.(R5) : CLEAR UNDEFINED BITS 
846 004052 023775 001124 CMP SGDDAT, (RS) 
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CVDRCA.P11 18-OCT=79 12:53 115 TEST CSR UNIQUENESS, CSRS (A=D),(C-R) 
847 004056 001400 BEQ 1$ 
848 004060 010137 001122 1$: MOV R1,$BDADR CHECK CSRB 
B49 004064 012737 100400 001124 MOV #100406, $GDDAT 
850 004072 011115 MOV (R17), (R5) 
851 004074 023715 001124 CMP $GDDAT, (RS) 
852 004100 001401 BEQ 2$ 
853 004102 104002 FRROR 2 7CSRB ERROR 
854 004104 010237 001122 23: MOV R2,$BDADR CHECK CSRC 
855 004110 012737 000200 001124 MOV #8177, $0DDAT 
856 004116 011215 MOV (R2), (R53 
*857 004120 042715 000007 BIC #7, (R5) 
858 004124 023715 001124 CMP $GDDAT, (R5) 
85S 004130 001401 BEQ 3$ 
860 004132 104002 ERROR 2 zCSRC ERROR 
861 004134 010337 001122 3s: MOV R3,$BDADR 
862 004140 005037 001124 CLR $GDDAT 
863 006144 011315 MOV (R3), (RS) 
864 004146 023715 001124 CMP $GDDAT, (RS? 
865 004152 001491 BEQ TST16 : BR IF EQUAL 
866 004154 104002 ERROR 2 :CSRD ERROR 
868 
869 fF AAA AAAAASAAARAAAARAARAAARARAARRERARAAARAARARAAARRARRERAAARERAEAREH 
870 :*TEST 16 TEST PORT A TO PORT C INTERACTION 
871 5 RRR RRA EEEAEAEREEAR ERE RER EAR EREREREAE RR ERERE EERE REET Ree 
872 004156 900004 TST16: SCOPE 
873 004160 004737 013002 JSR PC, CLRCSR CLEAR ALi CSRS | 
874 004164 012703 013110 MOV #BEGPAT ,R3 :GET DATA PATTERN TABLE 
B75 004170 012737 004220 001110 MOV #1$,$LPERR “SET UP SCOPE ADDRESS | 
876 004176 013700 001342 MOV DRCSA,RO GET PORT A, CSRA ADDRESS 
877 004202 013701 001352 MOV DRCSC,R1 GET PORT C, CSRC ADDRESS 
878 004206 013702 001346 MOV DRCSB,R2 :CSRB ADDRESS 
879 004212 112762 000001 000001 MOVB #B1T0,1(R2) :CSRB IN OUTPUT MODE 
880 004220 010037 001122 1$: MOV RO, $BDADR STORE CSRA ADDRESS - 
881 004224 005062 000002 CLR 2(R2) CLEAR DBRB 
882 004230 105061 000001 CLRB 1(R1) :PORT C,CSRC, INPUT MODE 
883 004234 112760 000001 0600001 MOVB #B1T9,17(RO) SET CSRA IN OUTPUT MODE 
004242 011360 000002 MOV (R3),2(RO) ‘WRITE INTO DBRA 
885 004246 016104 000002 MOV 2(R1) RG ;READ DBRC 
886 004252 012737 100700 001124 MOV #RDY 'DIR'!BIT7!BIT6, $GDDAT 
887 :CSRA DIR SHOULD STAY SET 
888 004260 011015 MOV (RO), (RS) ;READ CSRA 
889 004262 042715 000007 BIC #7,(R5) CLEAR UNDEF INCD BITS 
004266 0235715 001124 _MP $GDDAT, (RS) 
891 004272 001401 BEQ 100$ 
892 004274 104002 ‘ ERROR 2 (SRA ERROR 
893 004276 012737 000200 001126 100%: MOV #B1T7,$GDDAT 
894 004304 010137 001122 MOV R1,$BDADR :CSRC ADDRESS 
895 004310 011115 MOV (R1), (RS) sREAD CSRC 
896 004312 042715 000007 BIC #7, (R5) CLEAR UNDEFINED BITS 
897 004316 023715 001124 CMP $GDDAT, (R5) 
898 004322 001401 BEQ 101$ 
899 004324 104002 ERROR 2 ;CSRC ERROR 
900 004326 012737 001354 001122 101%: MOV DRDBC , $ADADR STORE DBRC ADDRESS 
901 004334 011337 001124 MOV (R3) ,SGDDAT iSAVE EXPECTED 
902 904340 010415 MOV RG, (RS) :DBRC CONTENTS 








E 
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CYDRCA DRV11J DIAG TST PRT MACY?) chee suf Mat ik PAGE 21 PAGE: 0030 
CVDRCA.P%1 18-0CT=+79 12:53 Ti€ T PORT A TO PORT ¢ INTERACTION 
903 004342 023715 001124 CMP $CODAT, (RS) ;CHECK PORT (,DBRC 
904 004346 001401 BEQ c$ :BEQ TO NEXT SUBTEST 
FOS 004350 10400 ERROR 2 :DBRC REG ERROR 
906 004352 0051357 001124 2$: COM $GDDAT ;SET_UP TO WRITE ~~ DATA FROM 
907 5 :PORT C TO PORT 
908 004356 013737 001344 00112e MOV DRDBA , SBDADR STORE DBRA ADDRESS 
909 004 013761 001124 GOQ0002 3$: MOV $GDDAT ,2(R1) sWRITE PORT C, INPUT MODE 
910 004372 105060 000001 CLRB 1(RO) MAKE PORT A INPUT MODE 
931 006376 112761 000001 900001 MOVB #B1T0,1(R1) s;MAKE PORT C OUTPUT MODE 
912 004404 016015 00000 MOV 2 (RO), <R5) [READ PORT A, 
913 006410 023735 001124 CMP $GDDAT, (R5) PORT A =PORT (? 
914 004414 001401 BEC 4$ CHECK DBRB FOR NO a CHANGE 
915 00441 104002 ERROR ;PORT A,DBRA REG ERROR 
916 004420 013737 003350 001122 4$: MOV DRDBB , $BDADR STORE OBRB ADDRESS 
917 004426 005037 1124 CLR $GDDAT :CONTENTS SHOULD STAY ZERO 
918 004432 016215 000002 MOV 2(R2),(R5) ;READ DBRB FOR CLEAR 
919 004436 023715 001104 CMP $GDDAT,(R5) CHECK FOR DBRB CLEAR 
920 004442 001401 BEQ 5$ 7 YES, CONTINUE 
921 004444 104002 ERROR 2 ;DBRB_ INTERACTION ERROR 
922 004446 005723 5$: TST (R3)+ INC FOR NEXT PATTERN 
923 004450 020327 013410 CMP R3,#ENDDAT SCHECK FOR END 
ace 004454 001261 BNE 1$ ;DO NEXT PATTERN 
926 
927 LLU REE RE RR AER RE REREEERREER EEE E RR AETRE RE RE 
928 seTEST 17 TEST PORT B TO PORT D INTERACTION 
929 LLU ERR RARE EERE AREER ERE EERE 
930 004456 TST17: SCOPE 
931 004460 737 013002 JSR PC,CLRCSR CLEAR ALL CSRS 
932 004464 012703 013110 MOV #BEGPAT .R3 :GET DATA PATTERN TABLE 
933 004470 012737 004520 007110 MOV #1$,$LPERR :SET UP SCOPE ADDRESS 
934 004476 013700 001346 MOV DRCSB,RO :GET PORT B, CSRB ADDRESS 
935 004502 013701 001356 MOV DRCSD,R1 :GET PORT D. CSRD ADDRESS 
936 0045 013702 001342 MOV DRCSA,R2 STORE CSRA ADDRESS 
937 004512 112762 1 000001 MCVB #51T0,1(R2) :CSRA_IN OUTPUT MODE 
938 004520 010037 001122 i$: MOV RO, $BDADR :STORE CSRB ADDRESS 
939 004524 005062 000002 CLR 2(R2) CLEAR DBRA 
940 0045 105061 000001 CLRB 1(R1) PORT D,CSRD, INPUT MODE 
341 004534 112760 000001 00000! MOVB #B81T0,1{RO) SET _CSRB_IN OUTPUT MODE 
942 004542 011360 000002 MOV —s- (R33) ,2(RO) ZWRITE INTO DBRB 
943 004546 016104 000002 MOV 2(R1) RS ;DBRD CONTENTS 
944 004552 912737 100400 001124 MOV MRDY!DIR,SGDDAT ;SAVE EXPECTED 
945 004560 011015 MOV (RO) ,(R5) sREAD CSRB 
946 004562 023715 001124 CMP SGDDAT, (R5) 
947 004566 001401 BEQ 100$ 
948 004570 104002 ERROR ;CSRB ERROR 
949 004572 005037 001124 100$: CLR $GDDAT : SAVE EXPECTED 
950 004576 010137 001122 MOV Ri, SEDADR ;SAVF CSRD ADDRESS 
951 004 011115 MOV (Ri), (R5) 
952 004 022715 001124 CMP S$GDDAT, (RS) 
953 004610 001401 BEe 101$ 
954 004612 104002 FRROR 2 CSRD ERROR 
955 0046614 013737 001360 001122 101%: MOV DRDBD , $BDADR SAVE DBRD ADDRESS 
956 004622 011337 001124 MOV (R3) ,$GDDAT SAVE EXPECT 
957 004 010415 MOV R4, (R5) :DBRD CONTENTS 
958 0046 023715 001124 CMP SGDDAT, (RS) CHECK PORT D,DBRD 
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CVDRCA.P1) 18-OCT-79 12:53 117 TEST PORT B TO PORT D INTERACTION 
00140) 2s ;BEQ TO NEXT SUBTEST 





960 004636 104002 ERROR 2 :DBRD REG ERROR 

961 004640 005137 001124 28: COM $GDDAT :SET UP TO WRITE COM DATA FROM 
362 ;PORT D TO PORT B 

963 0046644 013737 001350 001122 MOV DRDBB , $BDADR STORE DBRB ADDRESS 

964 004652 013761 001124 000002 38: MOV $GDDAT,2(R1) WRITE PORT D, INPUT MODE 

965 004660 7105060 000001 CLRB 1(RO) MAKE PORT B INPUT MODE 

966 004664 112761 000001 000001 MOVB #BITO,1(R1) :MAKE PORT D OUTPUT MODE 

967 004672 016015 000002 MOV 2(RO). (RS) ;READ PORT 8,DBRB 

968 004676 023715 001124 CMP $GDDAT, (RS) ;PORT B =PORT D? 

969 004702 001401 BEQ 4$ = CHECK DBRA FOR NO DATA CHANGE 
970 004704 104002 ; ERROR 2 ;PORT B,DBRB REG ERROR 

971 004706 013737 001344 001122 4$: MOV DRDBA , S$BDADR STORE DBRA ADDRESS 

972 004714 005037 001124 : CLR $GDDAT : CONTENT $=0 

973 004720 016215 000002 MOV 2(R2),(R5) READ DBRA FOR CLEAR 

974 004724 023715 061124 CMP $GDDAT, (RS) “BRA CLEAR? 

975 004730 001401 BEQ 5$ > YES, CONT INUE 

976 004732 104002 ERROR 2 :DBRA INTERACTION ERROR 

977 004734 005723 5¢: TST (R3)+ : INC FOR NEXT PATTERN 

978 004736 020327 013410 cmp R3,M#ENDDAT [CHECK FOR END 

979 004742 001266 BNE 1$ ‘DO NEXT PATTERN 

981 

982? SLUT ERE AEE EERE ERE RARER ERE RARER TR ERE Re Ree 
983 S*TEST 20 TEST PORT C TO PORT A INTERACTION 

984 FF AEA AAAAARARAAARERARAARAAAERERRAAAAREARRARARARAARAAAAAARKARAKAK ARH E 
98 006744 000004 TST20: SCOPE 

J3t, 006746 004737 013002 JSR PC, CLRCSR :CLEAR ALL CSRS 

987 004752 012703 013110 MOY #BEGPAT,R3 *GET DATA PATTERN TABLE 

988 004756 012737 5006 001110 MOV #1$,$LPERR ;SET UP SCOPE ADDRESS 

989 004764 073700 001352 MOV DRCSC.RO SGET PORT C. CSRC ADDRESS 
990 004770 013701 001342 MOV DRCSA,R1 :GET PORT A, CSRA ADDRESS | 
991 004774 013702 001356 MOV DRCSD,R2 ‘STORE CSRD ADDRESS 

992 005000 112762 000001 000001 MOVB 4#BIT0,1(R2) 7CSRD IN OUTPUT MODE 

393 005006 010037 001122 1$: MOV RO, $BDADR : STORE CsRe ADDRESS 

994 005012 005062 000002 CLR 2(R2) :CLEAR DBRD 

995 005016 105061 000001 CLRB 1(R1) [PORT A,CSRA, INPUT MODE 

996 005022 112760 000001 000001 MOVB #BITO,1(RO) :SET CSRC IN OUTPUT MODE 

997 005030 011360 000002 MOV (R3), 2(R0) ‘WRITE INTO DBRC 

998 005C34 016104 000002 MOV 2(R1), sREAD DBRA 

999 005040 912737 100600 001124 MCV ROY 'B1R'B117, SGBDAT 

1000 CSRC DIR SHOULD BE SET 

1001 005046 011015 MOV (R0) . (RS) TREAD CSRC 

1002 005050 042715 000007 BIC (R5) Z CLEAR ONDER INED BITS 

1003 005054 023715 001124 » CMP Shoat. (RS) 

1006 005060 001401 BEQ 100$ 

1005 005962 104002 . ERROR 2 CSRC ERROR 
1006 005064 012737 000300 601124 1008: MOV #8117:B116, scppat 

1007 005072 010137 001122 MOV 1, $ADADR ;CSRA ADDRESS 

1008 005076 011115 MOV fat) (R5) SREAD CSRA 

1 005100 042715 000007 BIC #7, (R5) “CLEAR UNDEFINED BITS 

1010 0051 023775 001124 CMP ScBDAT. (RS) 

1011 005110 001401 BEQ 101$ 

1012 005112 104002 : ERROR 2 :CSRA ERROR 

1013 005114 013737 001344 001122 101$: MOV DRDBA , $BDADR [STORE DARA ADDRESS 

1014 005122 011337 001124 MOV (R3) ,$GDDAT SAVE EXPECTED 
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CVDRCA.P11 18-00 T=79 12:53 T20 TEST PORT C TO PORT A INTERACTION | 

1015 005126 010415 MOV R4,(R5) ;DBRA CONTENTS 

1016 005130 023715 001124 CMP $GDDAT,(R5) ; CHECK PORT A,DBRA 

1917 005134 001401 BEQ e$ ;BEQ TO NEXT SUBTEST 

1078 005136 104002 ERROR 2 : ;DBRA REG ERROR 

1019 005140 005137 001124 2$: COM $SGDDAT ;SET UP TO WRITE COM DATA FROM 

1020 :PORT A TO PORT C 

1021 005144 013737 001354 001122 MOV DRDBC , $BDADR ; STORE DBRC ADDRESS 

1022 005152 013761 001124 Q00002 3$: MOV $GDDAT,2(R1)  . ;WRITE PORT A, INPUT MODE 

1023 005160 105060 00000’ CLRB 1(RO) sMAKE PORT C INPUT MODE 

1026 005164 112761 000001 000001 MOVB #B1TO,1(R1) :MAKE PORT A OUTPUT MODE 

1025 005172 016015 000002 MOV 2(RO), (RS) ;READ PORT C,DBRC 

1026 005176 023715 001124 CMP SGDDAT,(R5) :PORT C =PORT A? 

1027 005202 001401 BEQ 4$ ;CHECK DBRD FOR NO DATA CHANGE 

1028 204 104002 ERROR 2 ;PORT C,DBRC REG ERROR 

1029 005206 013737 001360 001122 4$: MOV DRDBD , SBDADR ; STORE DBRD ADDRESS 

1030 005214 005037 001124 CLR SGDDAT ;DBRD = 0 EXPECTED 

1031 005220 016215 000002 MOV 2(R2), (RS) ;READ DBRD FOR CLEAR 

1032 005224 023715 001124 CMP $GDDAT, (R5) ;1S DBRD CLEAR? 

1033 005230 001401 BEQ 5$ 7 YES, CONT INUE 

1034 005232 104002 ERROR 2 ;DBRD INTERACTION ERROR 

1035 005234 005723 5$: TST (R3)+ z INC FOR NEXT PATTERN 

1036 005236 020327 013410 CMP R3,4ENDDAT ; CHECK FOR END 

24 005242 001261 BNE 1$ ;DO NEXT PATTERN 

1039 LL UAE AREER RRR REAR RREE REE 

1040 *TEST 21 TEST PORT D TO PORT B INTERACTION 

1041 LLU EEE REE REE RERRAEERERROT EER eR ee 

1042 0065244 000004 TST21: SCOPE 

1043 005246 004737 013002 JSR PC,CLRCSR :CLEAR ALL CSRS 

1044 005252 012703 013110 MOV MBE GPAT .R3 :GET DATA PATTERN TABLE 

1045 005256 012737 005306 001110 MOV #1$,$LPERR :SET UP SCOPE ADDRESS 

1046 005264 013700 001356 MOV DRCSD,RO :GET PORT D, CSRD ADDRESS 

1047 005270 013701 001346 MOV DRCSB,R1 ;GET PORT B, CSRB ADDRESS 

1048 005274 013702 001352 MOV DRCSC,R2 ;STORE CSRC ADDRESS 

1049 005300 112762 000001 000001 MOVB #B1TO,1(R2) :CSRC IN OUTPUT MODE 

1050 005306 010037 001122 1$ MOV RO, $BDADR ;STORE CSRD ADDRESS 

1051 005312 CLR 2(R2) 7 CLEAR DBRC 

1052 005316 105061 00000 CLRB 1(R1) :PORT B,CSRB,INPUT MODE 

1053 005322 112760 000001 000001 MOVB #B1T0,1(RO) 7SET CSRD IN OUTPUT MODE 

1054 005330 011360 000002 MOV (R3) ,2(RO) [WRITE INTO DBRD 

1055 005334 016104 000002 MOV 2(R1) RS :READ DBRB 

1056 005340 012737 100400 001124 MOV #RDY'DIR,SGDDAT ;SAVE EXPECTED 

1057 005 011015 MOV (RO), (RS) READ CSRD 

1058 005350 023715 001124 CMP SGDDAT, (R5) 

1059 005354 001401 BEQ 100$ 

1060 005356 104002 ERROR 2 7CSRD ERROR 

1061 5360 005037 001124 100$. CLR SGDDAT ;SAVE EXPECTED 

1062 5364 010137 001122 . MOV R1,$BDADR SAVE CSRB ADDRESS 

1063 005370 011115 MOV (R71), (R5) 

1064 905372 023715 001124 CMP SGDDAT, (R5) 

1065 005376 001401 Q 101$ 

1066 005400 104002 f ERROR (SRB ERROR 

i067 0054602 013737 001350 001122 1018: MOV DRDBB , SBDADR ; SAVE DBRE ADDRESS 

1068 005410 011337 001124 MOV (R3) , SGDDAT [SAVE EXPECTED 

1069 005414 019415 MOV RG, (RS) : CONTENTS 

1070 005416 023715 001126 CMP SGDDAT, (R5) 7 CHECK PORT 8,DBRB 
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CVDRCA,P11 18-OCT-79 12:53 T21 TEST PORT D TO PORT B INTERACTION 
1071 005422 001401 BEQ 2$ ;BEQ TO NEXT SUBTEST 
1072 005424 104002 ERROR 2 ;DBRB REG ERROR 
1073 005426 005137 001124 es: COM $GDDAT ;SET UP TO WRITE COM DATA FROM 
1074 ;PORT B TO PORT D 
1075 005432 013737 001360 091122 MO\ DRDAD , $BDADR ;STORE DBRD ADDRESS 
1076 005440 013761 001124 000002 3$: MOV $GDDAT,2‘(R1) SWRITE PORT B, INPUT MODE 
1077 005446 7105060 000001 CLRB 1(RO) ;MAKE PORT D INPUT MODE 
1078 005452 112761 000001 000001 MOVB #B1T0,1(R1) ;MAKE PORT B OUTPUT MODE 
1079 005460 016015 000002 MOV 2(RO),(R5) ;READ PORT D,DBRD 
1080 005464 023715 001124 CMP S$GDDAT, (R5) :PORT B =PORT D? 
1081 005470 001401 BEQ 4$ ;CHECK DBRC FOR NO DATA CHANGE 
1082 005472 104002 a ERROR 2 ;PORT D,DBRD REG ERROR 
1083 005474 013737 001354 001122 4$: MOV DRDBC , $BDADR ; STORE SBRC ADDRESS 
1084 005502 005037 001124 5; CLR SGDDAT sEXPECT DBRC = 0 
1085 005506 016215 009002 MOV 2(R2),(R5) [READ DBRC 
1086 005512 023715 001124 CMP $GDDAT,(R5) 71S DBRC = 
1087 005516 001401 BEO 5$ : YES, CONTINUE 
1088 005520 1040C2 ERROR 2 ;DBRC INTERACTION ERROR 
1089 005522 005723 5$: TST (R3)+ ; INC FOR NEXT PATTERN 
1096 005524 020327 013410 CMP R3,MENDDAT ; CHECK FOR END 
a4 005530 001266 : BNE 1$ ;DO NEXT PATTERN 
1093 PLEA ERE EERE ERE RARER EERE ARERR RRR EE 
1094 ieTEST 22 TEST GROUP 1,2 IMR,IRR,ACR WITH CHIP RESET 
1095 LLU ER ERE AERA ERE ER ERE REE ERE ERE R REE Re 
1096 005532 000004 TST22: SCOPE 
1097 005534 004737 013002 JSR PC,CLRCSR or ge ALL CSRS 
1098 005540 012702 000002 MOV #2,R2 WO GROUPS TO TEST 
1099 005544 013700 001342 MOV DRCSA,RO ‘STORE CSRA 
1100 005550 013701 001346 MOV DRCSB,R1 ;STORE CSRB 
1101 005554 004737 013052 JSR pc CLRIRR ; CLEAR IRR — 
1102 O05°S0 010137 001122 111$: MOV SBDADR ;STORE ADDRESS 
1103 005564 012737 000377 001124 MOV a377. S$GDDAT 7STORE EXPECTED DATA 
1104 005572 112710 000244 MOVB AMIMR, (RO) ;LOAD MODE BITS FOR IMR 
1105 005576 111115 MOVB (R1), (R5) TREAD IMR REGISTER 
1106 5 023715 001124 CMP $GDDAT, (R5) 
1107 005604 001401 BEQ 1$ 
1108 005606 104005 ERROR 5 7 IMR REG ERROR 
1109 005610 005037 001124 1$: CLR SGDDAT sSTORE EXPECTED 
1110 005614 112719 000250 MOVB AMIRR, (RO) ;LOAD MODE BITS FOR [RR 
1141 005620 111115 MOVB (R1),(R5) ZREAD IRR REGISTER 
1112 005622 023715 001124 CMP SGDDAT, (RS) 
1113 005626 001401 BEQ 2$ 
1114 005630 104003 ? ERROR 3 ; IRR REG ERROR 
1115 005632 112710 000254 23%: MOVA AMACR, (RO) ;LOAD MODE BITS FOR ACR 
1116 56 111115 MOVB (R71), (R5) ;READ ACR REGISTER 
1117 005640 023715 001124 CMP S$GDDAT, (RS) 
1118 005644 001401 BEG $ 
1119 005646 104004 ERROR 4 ;ACR REG ERROR 
1120 005650 005302 ; 3$: DEC R2 ee BOTH GROUPS? 
1121 005652 001405 BEQ TST23 BR IF EQUAL 
1122 005654 013700 001352 MOV DRCSC,RO 
1723 5660 013701 001356 MOV DRCSD,R} 
1124 005664 735 8R 111$ 
1125 
1126 J GTA eeanaearanaranesarcancentanansaranenaneaeagenenesesesasesesenes 
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TEST GROUPS 1 AND 2 ACR UNIQUENESS 


TEST GROUPS 1 AND 2 ACR UNIQUENESS 


+ ROR RAREREREAERAARARRERARERARAARRERAREREEEEEKER KKH EHR RARER 


7$123: 


ef: 


3$: 


4$: 


5$: 


PC,CLRCSR :CLEAR ALL CSRS 

DRCSA,RO *CSRA ADDRESS 

DRCSB.R1 =CSRB ADDRESS 

#2,R3 ‘COUNTER FOR TESTING TwO GROUPS 
PC; CLRIRR ‘CLEAR IRR REGS WITH CHIP RESET 
R1.$BDADR =STORE ADDRESS 

#252, $GDDAT ‘STORE EXPECTED 

AMACR, (RO) “LOAD MODE BITS FOR ACR 
#PACR. (RO) “PRESELECT ACR FOR WRITING 
$GDDAT, (R1) ‘WRITE INTO DATA PORT 
(R1), (RS) “STORE DATA FOR COMPARE 
SCDDAT, (RS) “CHECK ACR RESULTS 

4 ;ACR ERROR 

#MIMR, (RO) “CHANGE TO IMR REGISTER 
#377, $GDDAT SSTORE EXPECTED 

(R1). (RS) [READ IMR 

gna vase :SHOULD STILL BE ALL 1°S 

5 : IMR REG ERROR 

#MISR, (RO) “LOAD MODE BITS FOR ISR 
SGDDAT “STORE EXPECTED 

(R1), (RS) SREAD ISR 

SDDAT, (RS) S1SR SHOULD BE CLEARED 

6 : ISR REG ERROR 

AMIRR, (RO) “LOAD MODE BITS FOR IRR 
(R17), (R5) [READ IRR 

SCDDAT, (RS) SIRR SHOULD BE CLEARED 

3 : IRR REG ERROR 

(RO) ‘CHIP RESET GROUP 1 

#MACR, (RO) “LOAD MODE BITS FOR ACR. 
(R1), (RS) [READ ACR 

SGDDAT, (R5) TACR SHOULD BE C!EARED 

4 ZACR REG ERROR 

R3 :TEST GROUPS 1 AND 2 

15724 ‘BR IF BOTH GROUPS TESTED 
DRCSC,RO ‘GROUP 2 CONTROL PORT 
DRCSD.R1 “GROUP 2 DATA PORT 

1118 ‘TEST GROUP 2 ACR UNIQUENESS 


RR ERAAR EAE RAE EREERRARAAAERAARRERERAAR ERRATA REE E RES 


TeTEST 26 


TEST GROUPS 1 AND 2 IMR UNIQUENE 5S 


RRR AERA E REE EAEAAAAEAERARARAERA AAR ERERE HERRERA REE 


1116: 


~ 


PC,CLRCSR CLEAR ALL CSRS 

DRCSA,RO :CSRA ADDRESS 

DRCSB,R1 ;CSRB_ ADDRESS 

#2,R3 ; COUNTER FOR TWO GROUP TESTING 
R1, SBDADR STORE ADDRESS 


#252, $GDDAT “STORE EXPECTED _ 
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1183 006132 112710 000244 MOVB —- #MIMR, (RO) ;LOAD MODE BITS FOR IMR 
1184 006136 112710 000260 MOVB = #P IMR. (RO) ‘PRESELECT IMR FOR WRITING 
1185 006142 113711 001124 MOVB $SGDDAT, (R1) WRITE INTO DATA PORT 
1186 006146 111115 MOVB (R11), (R5) “STORE DATA FOR COMPARE 
1187 006150 023715 001124 CMP $GDDAT, (R5) ; CHECK IMR RESULTS 
1188 006154 001401 BEQ i$ 
1189 006156 104005 ERROR 5 + IMR ERROR 
1190 112710 000254 1$: MOVB AMACR, (RO) ; CHANGE TO ACR REGISTER 
1191 006164 005037 001124 CLR $GDDAT ZSTORE EXPECTED 
1192 006170 1111715 MOVB (R1),(R5) ;READ ACR 
1193 006172 023715 001124 CMP $GDDAT, (RS) ‘SHOULD STILL BE CLEARED 
1194 006176 001401 BEQ 2$ 
1195 006200 104004 ERROR 4 zACR REG ERROR 
1196 006202 112710 000240 2$: MOVB - #MISR, (RO) [LOAD MODE BITS FOR ISR 
1197 006 111115 MOVB — (R11), (R5) TREAD ISR 
1198 006210 023715 001124 CMP S$GDDAT. (RS? :I1SR SHOULD BE CLEARED 
11S9 006214 001401 BEQ 3$ 
1200 006216 104006 ERROR 6 ;) SR REG ERROR 
1201 006220 112710 (000250 3$: MOVB #MIRR, (RO) :| OAD MODE BITS FOR IRR 
1202 006224 111115 MOYB (R1),(R5) ‘READ IRR 
1203 006226 023715 001124 CMP S$GDDAT, (R5) IRR SHOULD BE CLEARED 
1 006232 001401 BFQ 4$ 
1205 006234 104003 ERROR 3 . IRR REG ERROR 
1206 006236 105010 43: CLRB (RO) » HIP RESET GROUP 1 
1207 006240 112710 000244 MOVB AMIMR, (RO) ; OAD MODE BITS FOR IMR 
1208 006244 012737 000377 001124 MOV #377, $GDDAT : TORE EXPECTED 
1209 006252 111115 MOVB = (R11). (R5) EAD IM 
1210 006254 023715 001124 CMP $GDDAT, (RS) SLR SHOULD BE ALL ONES 
1211 006260 001401 BEQ S$ 'DO NEXT GROUP 
1212 262 104005 ERROR 5 “IMR REG ERROR 
1213 006264 005303 5$: DEC R3 :D0_ GROUPS 1 AND GROUP 2 
1214 006266 001405 BEQ TST25 77BR IF BOTH GROUPS TESTED 
1215 006270 013700 001352 MOV DRCSC,RO ‘SET UP TO, TEST GROUP 2 
1216 006274 013701 001356 MOV DRCSD.R1 [GROUP 2 DATA PORT 
1217 006300 000707 BR 1118 :DO ROP y IMR UNIQUENESS 
| 1219 LAR EERREEEKEREEEEEERRERE RE ERRERE RRR ERR COR 
1220 TATEST 25 TEST GROUPS 1 AND 2 IRR UNIQUENESS 
1221 SLEEK RRR ERE REE ERE RR E ERE E EER ERR REE RE ee 
1222 006302 000004 15125: SCOPE 
1223 006304 004737 013002 JSR PC, CLRCSR :CLEAR ALL CSRS 
1224 006310 013700 001342 MOV DRCSA,RO [CSRA ADDRESS 
1225 006314 013701 001346 MOV DRCSB.R1 >CSRB ADDRESS 
| 1226 006320 012703 000002 MOV #2,R3 *COUNTER FOR TESTING TwO GROUPS 
1227 006324 004737 013052 JSR PC CLRIRR [CLEAR IRR REGS WITH CHIP RESET 
1228 006330 010137 001122 111$: MOV ‘STORE ADDRESS 
1229 006334 012737 000200 001124 MOV #260 SepDAT SSTORE EXPECTED 
| 1230 006342 112710 000250 MOVB  #MIRR, (RO) [LOAD MODE BITS FOR IRR 
231 006346 112710 000137 MOVB #137, (RO) 7SET SINGLE IRR BIT? 
232 006352 111115 MOVB _—(R1). (R5) ‘STORE DATA FOR COMPARE 
'283 006354 023715 001124 CMP $GDDAT, (RS) ;CHECK IRR RESULTS 
1234 006 001401 BEQ 
1235 006362 104003 ERROR 3 IRR 
1236 112710 ' aN + CHAN ‘ TO IMR REGISTER 
1237? 006370 012737 000377 001124 MOV #377, $GDDAT : STORE EXPEC 
238 006376 111115 MOVB (R1),(R5) oR 
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1239 006400 001124 
1240 006404 
1241 006406 
1242 006410 000240 
1243 006414 001124 
1244 006420 
1245 006422 001124 
1246 006426 
1247 006430 
i248 006432 000254 
1249 006436 
1250 006440 001124 
1251 906444 
1252 0064 
1253 006450 
1256 006452 000250 
1255 090656 
1256 000460 001124 
i257 Ot 
1258 00456 
1259 006470 
1260 00€472 

| 1261 COE4L74E 001352 
1262 C06 001356 
1265 096504 
1764 
1265 
1266 
126” 
1c58 
1269 906506 
1270 0065" 013002 
127) 0065" 2 
172 006520 006546 
1°73 006 001342 
1274 0065' 3 001346 
1275 006° 2 013110 
1276 0065 Oru 1122 
1277 005 112 254 
1278 006 1 300 
1<79 006 111: 001124 
1z8C 006 11 J 
128; 0065 1i 5 
1282 0065 8 5 001124 
1285 0065 01401 
1284 006574 104004 
1285 005576 83 ; 

1286 0056 ? 013410 
1267 005604 001369 

1288 O 005302 

1289 006610 001403 

1290 0230612 O 37)) 001352 
1291 006616 O 571 001356 
1292 006622 UW 5 

1293 

1296 
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T GROUPS 1 AND 2 | 
CMP $GDDAT, ‘85) 
2$ 


5 
23: MOVB AMISR, (RO) 
CLR $GDDAT 
MOVB (R1),(R5) 
CMP ——- (R5) 


BEQ 
ERROR 6 

3$: MOVB AMACR, (RO) 
MOVB (R1),(R5) 
CMP $GDDAT, (R5) 
BEQ 4$ 
ERROR 4 

4$: CL.RB (RO) 
MOVB #MIRR, (RO) 


MOVB (R1),<R5) 
CMP ne (R5) 


3 
5$: DEC R3 
BEQ TST26 
MOV DRCSC,RO 
MOV DRCSD ,R1 
BR 1118 


27 
R UNIQUENESS 


;SHOULD STILL BE ALL 1°S 


; IMR_REG ERROR 
:LOAD MODE BITS F°R (SR 
STORE EXPECTED 
ISR 


;READ 
$1SR SHOULD BE Cl! ARE) 


;1SR REG ERROR 

sl AD MODE BITS “OR ACR 
RAD ACR 

zA°R SHOULD BE CLEARED 


ZACR_REG FRROR 
:C4IP RES!.7 GROUP 1 
;LO4D) MODE B1°S FOR iRR 


TREAD IRR 
712R SHOULD Bz CLEARED 


21RR_REG ERROR 
STEST GROUFS 1 AND ? 
;3R IF BCTH GROUPS TESTCD 
GROUP 2 CONTROL FORT 
;GROUP 2 DATA PORT 
TEST GROUP 2 ACR UNIQUENESS 


SARA EERE EERE EERE EERE CREE CR ARRERK ER ER KR RRERE EH 


i*TEST 26 TEST GROUPS 1,2 ACR WITH PATTERNS 


FF RARER A RARER ERR AREER KARR RKIRECTRKEEERRERRRERENERRERAE ERK 


TST26: SCOPE 
JSR PC,CLRCSR 
MOV #2,R 
MOV #1$,S$LPERR 
MOV DRCSA,RO 
MOV DRCSB,R1 


111$: tnd #BEGPAT ,R3 
1$: MOVB #MACR, (RO) 


CMP SCDDAT. (R5) 
2s 


ERROR 4 
2$: TST (R3)+ 
PRS MENDDAT 
R2 
BEQ  TST27 
MOV —DRCSC.RO 
MOV —- DRCSD-R1 
111§ 


>CLEAR ALL CSRS 
TEST TWO GxOUFS 
“SET UP LOOP Rr URN 
STORE CSRA. ADDRESS 
STORE CSR'3_ADDRESS 
:StT UP PATTERN TABLE 
me ORE ADDRESS 
LOAD MODE BiTS FOR ACR 
PRESELECT AcR FOR WRITING 
STORE EXPEC "ED 
SWRITE INTC ACR 
[READ OUT GF ACR 


ACR REGISVER ERROR 

; INC FOR NEXT PATTERA 

: CHECK FOR TABLE END 

W/R NEXT PATTERN 

:F INISHED BOT GROUPS? 
IF EQUAL 


;DO NEXT GROUP 


SL UAAAAAAAAAAARARAAAEAERERAAAARAAAAEAAAARAARAEHEERARE RR ERA HER RTehee 
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C GF 28 
RCA.P11 18-JCT+79 12:53 T27 TEST GROUPS 1,2 IMR WITH PATTERNS 
1295 :*TEST 27 TEST GROUPS 1,2 IMR WITH PATTERNS 
1296 I CDIDIOOOIISISIOISIDISIIISIIOIIISIIIIOIIOIIOICIOIOIOIIIDIOIDICIUICIIUIIIEUO ID TOO Ri tet 
1297 006624 (00004 TST27: SCOFF 
1298 9066.5 004737 0130 2 JSR PC. CLRCSR :CLEAR_ALL CSRS 
1299 006652 012702 O00C 2 MOV Rc STEST TWO GROUPS 
1300 33 012737 ~006€°5 001719 MOV 218, SLPERR SET UP LOOP RETURN 
1301 009644 013700 OC1: 2 MOV ORCS. .RO STORE CSRA ADDRESS 
13502 005650 015701 001: 6 MOV ORCSH.R1 7S7CRE CSRB_ADDRESS 
1503 006054 07¢703 0131.0 117%: MOV #BEGAT ,R3 7SET UP PATTERN TABLE 
1304 V0G66C 010137 00 122 MOV R1, SEPADR sSTORE ADDRESS 
1305 006664 112710 901244 1$: MIVB #MIMF:, (RO) LOAD MODE BITS FOF IMR 
1306 006670 112710 99260 MOVB AMP IMR, (RO) PRESELECT IMR FOR WRITING 
1307 006674 111377 O00 124 MOVB (R3) , SGDDAT SiORE EXPECTED 
1308 006700 111311 MOVB (R3),(R1) WR TE INTO IMR 
1309 OM6702 «111115 MOVB (R1),(R5) ;READ OUT OF IMR 
1310 OJ€7 023715 G01124 CMP $GDDAT, (RS) 
1317 03671) 001401 B':Q 2s 
1312 €28712 104005 ERROR 5 : IMF REGISTER ERROR 
1313 G06774 00572? 2$: TST (R3)+ 7 INC FOR NEXT PATTERN 
1314 006716 020327 01341° CMP R3,AENDAT CHECK FOR TABLE END 
1315 OOv7ze 001360 BNE 1$ :W/R NEXT PATTERN 
"316 006724 005302 DEC Re 7F INISHED = GROUPS ? 
1317 006726 001405 BEQ TST30 ;;3R IF EQUA 
1318 006730 073700 001352 MOV DRCSC,RO 
1319 006734 013701 001556 MOV DRCSD,R1 
13 096740 000745 BR 111$ D0 NEXT GROUP 
1322 DDI III III IOICIOIUISIOIUIOIIECICIIOISIIOIOI ITI TIO TTS IA ASSASSIN 
1323 ;*TEST 30 TEST GROUP 7,2 CLEAR IMR INSTR. 
1324 DOI III III IUIIOIIOIIIOIUIIIOI IOI IOIIOR III I RIO i Rit 
1325 006742 000004 TST30: SCOPE 
1326 006744 004737 013002 ISR PC,CLRCSR CLEAR ALL CSRS 
1327 006750 012;04 000002 MOV #2,R4 ; COUNTER FOR TWO GROUPS 
1328 006754 013700 1342 MOV DRCSA,RO :CSRA ADDRESS 
1 7 01370: 001346 MOV DRCSB,R1 :CSRB_ ADDRESS 
1330 006764 010137 001122 171$ MOV R1,$BDAD : STORE ADDRESS 
1331 006770 005037 001124 CLR SGDDAT sEXPECTED DATA 
1332 006774 112710 000244 MOVB AMIMR, (RO) LOAD MODE BITS TO READ IMR 
1333 007000 112710 000040 MOVB #CIMR, (RO) :CLEAR IMR COMMAND 
1334 007004 111115 MOVB (R1),(R5) SREAD DATA PORT 
1335 007006 023715 001124 _CMP $GDDAT, (R5) 
1336 007012 (01401 BEQ 1$ 
1337 007014 104005 ERROR 5 ERROR ,IMR SHOULD BE CLEARED 
1338 007016 005304 1$: DEC R4 :F INISHED BOTH GROUPS? 
1339 007020 001405 BEQ TST31 ;.BR IF BOTH GROUPS TESTED 
1340 007022 013700 001352 MOV DRCSC.RO >SETUP FOR GROUP 2 
1341 007026 013701 001356 MOV DRCSD,R1 
94 007032 000754 BR 111% DO IMR TEST WITH GROUP 2 
1344 PLR A ERR RE RRR EERE ERE REE EEE RARER RE ee 
1345 i*TEST 31 TEST GROUP 1,2 SET IMR INSTR. 
1346 DLR ERR EERE ERE REE ERR Eee 
1347 007034 000004 TST31: SCOPE 
1348 007036 004737 013002 JSR PC,CLRCSR CLEAR ALL CSRS 
1349 007042 012704 000002 MOV #2 ,RE ;COUNTER FOR TWO GROUPS 
1350 007046 015700 001342 MOV DRCSA,RO ;CSRA ADDRESS 
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C 
1351 097052 013701 001346 MOV DRCSB,R1 ;CSRB ADDRESS 
1252 (07056 010137 001122 111$: MOV R1,$BDADR STORE ce oath 
1353 07062 012737 900377 001124 MOV #377 ,SGDDAT SEXPECTED DAT 
13£4 007070 112710 000244 MOVB #MIMR, (RO) ;LOAD MODE BITS TO READ IMR 
1383 907074 112710 690040 MOVB A#CIMR, (RO) ;CLEAR IMR 
1256 007100 112710 000060 MOVB = #SIMR, (RO) :SET IMR COMMAND 
1357 0071046 111415 MOVB (R1),(R5) ;READ DATA PORT 
1338 007106 027715 001124 CMP SGDDAT, (R5) 
1759 007112 007401 BEQ 1$ 
1760 007174 104905 ERROR 5 ;ERROR ,IMR SHOULD BE SET 
1561 007176 005204 1$: DEC R4 #F INI SHED BOTH GROUPS? 
13%2 00712) 901405 BEQ TST32 7:BR IF BOTH GROUPS TESTED 
1363 907122 013700 001352 MOV DRCSC,RO [SETUP FOR GROUP 2 
1364 0071-6 013701 001356 MOV DRCSD,R1 
itez 00712 000751 BR 111$ ;DO IMR TEST WITH GROUP 2 
1°67 DISORD IIIS IIOIOIOI III IIIT TOTTI I TOTTI TT TOT OT OT TOTTI TIO 
1:68 i*TEST 32 TEST GROUP 1,2 CLEAR SINGLE IMR BIT INSTR. 
1°69 POST TTT TTT TT TTT TTETT TT TTT TTT TTI TTT TTT TTL TTI TTT 
1370 007134 000004 1$132: SCOPE 
1371 007136 004737 013002 JSR PC,CLRCSR :CLEAR ALL CSRS 
1372 0)7142 012704 000002 MOV #2,R [GROUP COUNTER 
1373. 097146 012737 007204 001110 MOV #1$,$LPERR ; SCOPE RETURN ADDRESS 
1374 007154 013700 001342 MOV DRCSA,RO [CSRA ADDRESS 
1375 007160 013701 001346 MOV DRCSB,R1 ;CSRB ADDRESS 
1376 007164 010137 001122 111$: MOV R1,$BDADR :STORE ADDRESS 
1377 007170 012703 013254 MOV ABGCHPS ,R3 = GOOD DATA PA*TERN TABLE 
1378 007174 112710 000244 MOVB A#MIMR, (RO) ;LOAD MODE 31TS FOR IMR 
1379 007200 012702 000050 MOV #CSIMR,R2 [CLEAR SINGLE BIT VALUE 
1380 007204 111337 001124 1$: MOVB (R3) , SGDDAT STORE EXPECT 
1381 007210 112710 000060 MOVB ASIMR, (RO) SET ALL IMR BITS 
1382 007214 110210 MOVB R2, (RO) CLEAR SINGLE IMR BIT 
1383 007216 111115 MOVB (R i), (R5) ;READ DATA PORT 
1384 007220 023715 001124 CMP $GDDAT, (R5) 
1385 007224 001401 BEQ 2$ 
1386 007226 104005 ERROR 5 7 IMR REG ERROR 
1387 907230 005723 2$: TST (R3)+ 7 INC FXPECTcCD DATA TABLE 
1388 007232 020327 013274 CMP R3,AEDCHPS CHECK FOR END 
1389 007236 001402 BEQ 3$ 
1390 007240 005202 INC R2 :SET UP TO CLEAR NEXT IMR BIT 
1391 007242 00076 BR 1$ [CLEAR NEXT IMR 3IT 
1392 007244 005304 3$: DEC R4 :D0 GROUPS 1 AND 2 
1393 007246 001405 BEQ TST33 77BR IF BOTH GROUPS TESTED 
1394 007250 013700 001352 MOV DRCSC,RO :CSRC ADDRESS 
1395 007254 013701 001356 MOV DRCSD,R1 :CSRD ADDRESS 
ie 007260 000741 BR 111$ ;D0 GROUP 2 
1398 
1399 DUO OID IIUICIOIIOIIOIUISIOIOIIIIUIIDIIOIIOIUIDIDIOIUIOIDIOIOIDIDISIIOISIOIOIOIIDIGIG ISIE 
1400 i*TEST 33 TEST GROUP 1,2 SET SINGLE IMR BIT INSTR. 
1401 DDI IIIIIIOIOIUUIOIIIIOIIUIIIUIUIIIUIIIUOIIOUDI RR IOC R Rtn itt 
1402 007262 000004 TST33: SCOPE 
1403 007264 004737 013002 JSR nse CLRCSR CLEAR ALL CSRS 
1404 007270 012704 000002 MOV R4 COUNTER 
1405 007274 012737 007332 001110 MOV wie, $SLPERR « SCOPE RETURN ADDRESS 
1406 302 013700 001342 MOV DRCSA, RO ;CSRA ADDRESS 
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SET SINGLE IMR BIT INSTR. 


;CSRB_ ADDRESS 

:STORE ADDRESS 

;GOOD DATA PATTERN TABLE 
[LOAD MODE BITS FOR IMR 
:SET SINGLE top BIT VALUE 


;CLE 
:SET SINGLE IMR BIT 
SREAD DATA PORT 


7 IMR REG ERRTR 
INC EXPECTED DATA TABLE 
; CHECK FOR END 


SET UP TO SET at. IMR BIT 
;SET NEXT IMR B 

:D0 GROUPS 1 AND "5 

;;BR_IF BOTH GROUPS TESTED 
SCSRC ADDRESS 

[CSRD ADDRESS 
;DO GROUP 2 


Mele tek Rahat hahahahahaha hehehahehalehelelelehelelelahslalehahehehahaheiahsieieisheleheieislelaleieieleieieieieieieieieieiele 


TEST GROUP 1,2 SET IRR INSTR. 


CII TIT ITORTTOIT I TOTTORI TOTO TOIT TTT TOR TOTTORI TTT TR ER 


1e-OCr- -79 
GROUP 1,2 
MOV DRCSB,R1 
111$: MOV R1, SBDADR 
MOV #BGCHP3,R3 
MOVB  #MIMR, (RO) 
MOV ASSIMR,R2 
1$: MOVB _— (R3) ,$GDDAT 
MOVB = #CIMR, (RO) 
MOVB _—R2, (RO) 
MOVB (Ri), (RS) 
CMP $GDDAT, (R5) 
BEQ 2$ 
ERROR 5 
2$: TST (R3)+ 
CMP R3,M#EDCHP3 
BEQ 3$ 
INC R2 
1$ 
3$: DEC RG 
BEQ TST34 
MOV DRCSC.RO 
MOV DRCSD.R1 
BR 111$ 
:*TEST 34 
T5134: SCOPE 
JSR PC,CLRCSR 
MOV #2.R4 
MOV DRCSA,RO 
MO DRCSB,R1 
JSk PC, CLRIRR 
111%: MOV R1, $BDAD 
MOV 4397, SCDDAT 
MOVB  #MIRR, (RO) 
MOVB  #SIRR.(RO) 
MOVB (R11), (R5) 
CMP $GDDAT, (R5) 
BEQ 1$ 
ERROR 3 
1$: DEC R4 
BEQ TST35 
MOV DRCSC,RO 
MOV DRCSD.R1 
BR 111$ 


CLEAR ALL CSRS 

; COUNTER FOR TWO GROUPS 

:CSRA ADDRESS 

7CSRB ADDRESS 

ZCLEAR IRR sty WITH CHIP RESET 
STORE ADDRESS 

EXPECTED DATA 

LOAD — BITS TO READ IRR 
:SET_ IRR COMMAND 

;READ DATA PORT 


ERROR ,IRR SHOULD BE SET 
:F INI SHED BOTH GROUPS? 
;;BR IF BOTH GROUPS TESTED 
:SETUP FOR GROUP 2 


;DO IRR TEST WITH GROUP 2 


SERRE EERE EERE ERE REE ERE REE ERE ERE E RARER EER ER EERE 


TEST GROUP 1,2 CLEAR IRR INSTR. 


SERA EREREK EERE EERE R EERE RARER REAR RK ER 


;*TEST 35 

TST35: SCOPE 
JSR PC,CLRCSR 
MOV #2,R4 
MOV DRCSA,RO 
MOV DRCSB,R1 
JSR PC, CLRIRR 


a pe ALL CSRS 


[CSRB ADDRESS 
CLEAR IRR REGS WITH CHIP RESET 


PAGE : 
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CVDRCA.P11 18-OCT-79 12:53 735 GROUP 1,2 CLEAR IRR INSTR. 
1463 007536 010137 001122 111$: MOV R1,$BDADR STORE ADDRESS 
1464 007542 005037 001124 CLR $GDDAT EXPECTED DATA 
1465 007546 112710 000250 MOVB AMIRR, (RO) ; LOAD MODE BITS TO READ IRR 
4 007552 112710 000120 MOVB #SIRR, (RO) SET IRR BITS 
1467 007556 112710 000100 MOVB ACIRR, (RO) =CLEAR IRR COMMAND 
1468 007562 111115 MOVB (R1),(R5) READ DATA PORT 
1469 0075 023715 001124 CMP $GDDAT, (R5) 
1470 007570 001401 BEQ 1$ 
1471 007572 104003 ERROR 3 ERROR ,IRR SHOULD BE CLEARED 
1472 007574 005304 1$: DEC R4 :F INI SHED BOTH GROUPS? 
1473 007576 001405 BEQ TST36 :;BR IF BOTH GROUPS TESTED 
1474 007600 013700 001352 MOV DRCSC,RO :SETUP FOR GROUP 2 
1475 007604 013701 001356 MOV DRCSD,R1 
oe 007610 000752 BR 111$ :DO IRR TEST WITH GROUP 2 
1478 DI RT TTT ITT TTT TI RR RRR ERE RRR REE ER 
1479 s*TEST 36 TEST GROUP 1,2 CLEAR SINGLE IRR BIT INSTR. 
1480 DDRII III III IOI IIDC IOI tit 
1481 007612 000004 TST36: SCOPE 
1482 007614 004737 013002 JSR PC,CLRCSR CLEAR ALL CSRS 
1483 007620 012704 000002 MOV #2,R4 GROUP COUNTER 
1484 007624 012737 007666 001110 MOV #1$,$LPERR SCOPE RETURN ADDRESS 
1485 007632 013700 001342 MOV DRCSA,RO :CSRA ADDRESS 
1486 007636 013701 001346 MOV DRCSB.R1 ;CSRB ADDRESS 
1487 007642 004737 013052 JSR PC,CLRIRR :CLEAR IRR REGS WITH CHIP RESET 
1488 007646 010137 001122 111$: MOV R1,$BDADR SSTORE ADDRESS 
1489 007652 012703 013254 MOV #BGCHP4 ,R3 :GOOD DATA PATTERN TABLE 
1490 007656 112710 000250 MOVB #MIRR, (RO) ;LOAD MODE BITS FOR IRR 
1491 007662 012702 000110 MOV #CSIRR,R2 CLEAR SINGLE IRR BIT VALUE 
1492 007666 111337 001124 1$: MOVB (R3) ,S$GDDAT :STORE EXPECTED 
1493 007672 112710 000120 MOVB #SIRR, (RO) SET ALL IRR BITS 
1494 007676 110210 MOVB R2, (RO) CLEAR SINGLE IRR BIT 
1495 77 111115 MOVB (R1), (R5) [READ DATA PORT 
1496 007702 023715 001124 CMP $GDDAT, (R5) 
1497 007706 001401 BEQ 2$ 
1498 007710 104003 ERROR 35 7 IRR REG ERROR 
1499 007712 005723 = 2$: TST (R3)+ INC EXPECTED DATA TABLE 
1500 007714 020327 015274 CMP R3,MEDCHPS CHECK FOR END 
1501 007720 001402- BEQ 3$ 
1502 007722 005202 INC R2 SET UP TO CLEAR NEXT IRR BIT 
1503 007724 000760 by 1$ :CLEAR NEXT IRR BIT 
1504 007726 005304 3$: DEC R4 7DO GROUPS 1 AND 2 
7505 007730 001405 BEQ TST37 :;BR IF BOTH GROUPS TESTED 
1506 007732 013700 001352 MOV DRCSC,RO ;CSRC ADDRESS 
1507 007736 013701 001356 MOV DRCSD,R1 *CSRD ADDRESS 
1308 007742 000741 BR 111$ D0 GROUP 2 
1510 LTA EERE EERE REE ER ERE RARER REE ERE REAR ER ERED 
1511 TEST 37 TEST GROUP 1,2 SET SINGLE IRR BIT INSTR. . 
1512 FFARR EERE EERE EEE ERE RARER AREER ERE EEE a 
1513 007744 000004 TST37: SCOPE 
1514 007746 004737 013002 JSR PC,CLRCSR CLEAR ALL CSRS 
1515 007752 012704 000002 MOV #2,R4 ‘GROUP COUNTER 
1516 007756 012737 010020 001119 MOV #1$,$LPERR :SCOPE RETURN ADDRESS 
1517 007764 013700 001342 MOV DRCSA,RO :CSRA ADDRESS 
1518 007770 013701 001346 MOV DRCSB.R1 :CSRB ADDRESS 
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RT] 
CVDRCA.P11 18-O0CT 12:53 OUP 1,2 SET SINGLE IRR BIT INSTR. 
1519 007774 737 013052 JSR PC,CLRIRR ;CLEAR IRR REGS WITH CHIP RE-ET 
1520 010000 010137 001122 111$: MOV R1,$8DADR :STORE ADDRESS 
1521 010004 012703 013212 MOV #BGCHPS ,R3 ;GOOD DATA PATTERN TABLE 
1522 010010 112710 000250 MOVB #MIRR, (RO) [LOAD MODE BITS FOR IRR 
1523 010014 012702 0001390 MOV ASSIRR,R2 :SET SINGLE IRR BIT VALUE 
1524 010020 111337 001124 1$: MOVB (R3) ,SGDDAT SSTORE EXPECTED 
1525 010024 112710 000100 MOVB #CIRR ed ;CLEAR ALL_IRR BITS 
1526 010030 110210 MOVB R2, (RO) :SET SINGLE IRR BIT 
1527 010032 111115 MOVB (Ri), (RS) TREAD DATA PORT 
1528 010034 023715 001124 CMP $GDDAT, (R5) 
1529 010040 001401 BEQ 2$ 
1530 010042 104003 ERROR 3 7 IRR REG ERROR 
1531 010044 005723 2$: TST (R3)+ 7 INC EXPECTED DATA TABLE 
1532 010046 020327 013232 CMP R3,A4EDCHP3 ;CHECK FOR END 
1533 010052 001402 BEQ 3$ 
1534 010054 005202 INC R2 ;SET UP TO - NEXT IRR BIT 
1535 010056 000760 BR 1$ 7SET NEXT -” BIT 
1536 010060 005304 3$: DEC RS :D0 GROUPS 1 AND 2 
1537 010062 001405 BEQ TST40 ;;BR IF BOTH GROUPS TESTED 
1538 010064 013700 001352 MOV DRCSC,RO :CSRC ADDRESS 
1539 010070 013701 001356 MOV DRCSD,R1 :CSRD ADDRESS 
Fon 010074 000741 BR 1118 :DO GROUP 2 
1542 LR ERR ERE ERR RAE RRR RRR ERR Re 
1543 i*TEST 40 TEST GROUP 1,2 CLEAR IRR+IMR INSTR. 
1544 SL RRR RKO RARER REE RRR EE Re 
1545 010076 000004 TST40: SCOPE 
1546 010100 004737 013002 JSR PC,CLRCSR :CLEAR ALL CSRS 
1547 010104 012704 000002 MOV #2.,R4 COUNTER FOR TWO GROUPS 
1548 010110 013700 001342 MOV DRCSA,RO :CSRA ADDRESS 
1549 010114 013701 001346 MOV DRCSB,R1 ;CSRB ADDRESS 
1550 010120 004737 013052 JSR PC, CLRIRR ;CLEAR IRR REGS WITH CHIP RESET 
1557 010124 010137 001122 111$: MOV R1,$BDADR :STORE ADDRESS 
1552 010130 005037 001124 CLR SGDDAT TEXPECTED DATA 
1553 010134 112710 000250 MOVB #MIRR, (RO) LOAD MODE BITS TO READ IRR 
1854 010140 112710 000120 MOVB #SIRR, (RO) ;SET IRR BITS 
1555 010144 112710 000060 MOVB #SIMR; (RO) :SET IMR BITS 
1556 010150 112710 000020 MOVB #CIRMR, (RO) ;CLEAR IRR+IMR COMMAND 
1557 010154 111115 MOVB (R1),(R5) TREAD DATA PORT FOR IRR 
1558 010156 023715 001124 CMP SGDDAT, (R5) 
1559 0162 001401 BEQ 1$ 
15690 010164 104003 ERROR 3 ERROR -IRR SHOULD BE CLEARED 
1561 10166 112710 000244 1$: MOVB #MIMR, (RO) LOAD MODE BITS TO READ IMR 
1562 010172 111115 MOVB (R1),(R5) {READ IMR REG 
1563 010174 023715 001124 CMP SGDDAT, (R5) 
1564 010200 001401 BEQ 2$ 
1565 010202 104005 ERROR 5 7 IRR+IMR COMMAND DID NOT CLEAR IMR 
1566 010204 005304 2$: DEC RG FINISHED BOTH GROUPS? 
1567 010206 00140 BEQ TST41 :7BR IF BOTH GROUPS TESTED 
1568 610210 013700 001352 MOV DRCSC,RO :SETUP FOR GROUP 2 
1569 010214 013701 001356 MOV DRCSD,R1 
iy a 010220 000741 BR 111$ 7DO IRR*+IMR TEST WITH GROUP 2 
1572 LL UA AAR R AERA RERREEA AAA AE RATATAT ARATE ATA eR ee RRA 
137? ie TEST 41 TEST GROUP 1,2 CLEAR SINGLE IRR+IMR BIT INSTR, 
+ RRR TRAE EERE AA AREA ERAT AAARA EARTHEN RARERERRHRRR ARERR e eee ee 
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TEST GROUP 1,2 CLEAR SINGLE IRR+IMR BIT INSTA. 
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PC,CLRCSR :CLEAR ALL CSRS 
#2.R4 [GROUP COUNTER 
#1$,$LPERR “SCOPE RETURN ADDRESS 
DRCSA,RO *CSRA ADDRESS 
DRCSB.R1 ;CSRB_ADDRESS 
PC, CLRIRR CLEAR IRR hes WITH CHIP RESET 
Ri. $BDADR “STORE ADDRESS 
ABGCHPS ,R3 ‘GOOD DATA PATTERN TABLE 
#CSIRMR.RO "CLEAR SINGLE IRR+IMR BIT VALUE 
(R3) , $GDDA! [STORE EXPECTED 
#MIRR, (RO) ‘LOAD MODE BITS TO READ [RR 
#SIRR. (RO) [SET ALL IRR BITS 
#SIMR. (RO) [SET ALL IMR BITS 
R2, (RO) [CLEAR SINGLE [RR+IMR BIT 
(R17), (RS) “READ DATA PORT FOR IRR 
SCDDAT, (RS) 
: IRR REG ERROR 
#MIMR. (RO) “SET UP TO READ IMR 
(R1), ¢R5) “READ IMR REGISTER 
SDDAT. (KS) 
5 : IMR REG ERROR 
(R3)+ SINC EXPECTED DATA TABLE 
R3.MEDCHPS ‘CHECK FOR END 
R2 :SET UP TO CLEAR NEXT IRR+IMR BI! 
1$ “CLEAR NEXT IRR+IMR BIT 
RS :D0 GROUPS 1 AND 2 
TST42 ::BR IF BOTH GROUPS TESTED 
DRCSC.RO *CSRC ADDRESS 
DRCSD.R1 *CSRD ADDRESS 
1118 [DO GROUP 2 


PLU ERA AEE REAR AER EAERAARAKERAAEREAAAERAERARAERR EKER EKER 


TEST GROUPS 1,2 FOR GROUP UNIQUENESS 


LP UREA AA AAEAAAAARRERARRERERE EAE RAR EERE 


PC,CLRCSR ;CLEAR ALL CSRS 

3 Sa - os 

:CSRB = 

iCSRC = RD 

i:CSRD = R3 
#2,R4 [COUNTER FOR TESTING TwO GROU?S 
PC. CLRIRR :CLEAR IRR REGS WITH CHIP RESET 
R3,$BDADR STORE ADDRES 
#PACR, (RO) SPRESELECT ACR FOR WRITING 
#377,(R1) :WRITE INTO DATA PORT FOR ACR 
#SIRR, (RO) :SET IRR TO ALL 1°S 
#CIMR, (RO) :CLEAR IMR 
#MACR, (R2) ;LUAD me TO READ AC? 
S$GDDAT EXPECTED 
(R3),(R5) STORE DATA FOR COMPAS 


$cDDAT, (R5) SCHECK ACR RESULTS 
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18-0C T= -79 34 
GROUPS 1,2 FOR GROUP UNIQUENESS 

ERROR 4 SERROR,OTHER GROUP ACR SHOULD BE CLEARED 

MOVB  &#MIMR, (R2) “CHANGE TO IMR REGISTER 

MOV #377, $GDDAT SSTORE EXPECTED 

MOVB _— (R33). (R5) [READ IMR 

CMP SoDDAT, (RS) ‘SHOULD BE ALL. 1'°S 

ERROR 5 : ERROR, OTHER GROUP IMR SHOULD BE SE? 
2$: MOVB #MISR. (R2) LOAD MODE BITS FOR ISR 

CLR SGDDAT STORE EXPECTED 

MOVB _— (R3), (R5) “READ ISR 

CMP $DDA", (R5) SISR SHOULD BE (CLEARED 

ERROR ;I1SR REG ERROR 
3$: MOVB #MIRR. ‘R2) SLOAD MODE BITS FOR IRR 

MOVB — (R33), (RS) TREAD IRR 

Ci SoDDAT, (RS) [IPR SHOULD BE CLEARED 

ERROR 3 ZERROR OTHER GROUP IRR SHOULD BE CLEARED 
4$: DEC RL TEST GROUPS 1 AND 

BEQ S143 ::;BR 1 BOTH CROUPS TESTED 

JSR PC,CLRCSR “CLEAR ALL CSRS 

MOV DRCSC,RO *GROU? 2 CONT:0L PORT 

MOV DRCSD.R1 *GROUP 2 DATA PORT 

MOV DRCSA.R2 *GROUF 1 CONTROL PORT 

MO. DRCSB.R3 ‘GROUP 1 DATA PORT 

JSR PC, CLRIF “CLEAR IRR RECS WITH CHIP RESE} 

BR 111$ “TES? G20UP 2 ACR UNIQUENESS 
SF RAARAREAAAAAAAAARARAAAKAARARAARAARRE BE? CRAKE HRAKRARRRHARREREREE EY 
SeTEST 43 TEST STATUS BITS GINT.S2.$1,80,GP1,2 
fC FRA AAAAAAAAAARARAAAARERAAAAAHRARAAHEKAARARAARERAARAAHARHAAAHARED 
1S143: SCOPE 

JSR PC, CLRCSR SCLEAR ALL CSRS 

MOV DRCSA,RO 

MOV DRCSB.R1 

MOV “R3 :DO TWO GPOLIPS 
111$: MOV #120,R4 SEMPECTED STATUS BITS 

CLR aDRCSA SINIT (SAA 

CLR aDRCSC SINIT CSRC 

MOV #BGPAT1,R2 ZEXPECTED IRR PATTERN 

MOVB  #BITO,1(RO) CSR TO OUTPUT MODE 

MOVB #204, a@DRCSA ‘POLLED MODE FOR CSRA,GROUP 1 

MOVE #204. aDRC(SC :POLLED MODE FOR CSRC.GROUP 2 

MOVB  #CIRMR, (RO) CLEAR IMR + IRR 

MOV #SSIMR; IMRLOC STORE CODE FOR SINGLE IMR 

MOV #SSIRR.IRRLOC :STORE CODE FOR SINGLE [RR 
112%: MOV RO, $2DADR [CSR CHIP COMMAND ADDRESS 

MOV R4.$GDDAT TEXPECTED DATA 

MOVB _—IRRLOC, (RO) :SET SINGLE IRR BIT 

MOVB —«- (RO) , (R'5) “CHECK STATUS 

ume $GDDAT, (25) 

BEQ 1$ 

ERROR 7 :CHIP STATUS ERROR 
1$: CLR $GDDAT 

MOV R1. $BDADR :C(SR CH)? DATA ADDRESS 

MOVB = (P22) , $GDDAT 
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CVDRCA.F11 18-0CT=79 12:53 143 TEST STATUS BITS GINT,S2,51,S0,GP1,2 
1687 010752 112710 000250 MOVB = AMI RR, (RO) ;READ IRR | 
1688 010756 111115 MOVB = (R17), (R5) 
1689 010760 023715 001124 CMP $SGDDAT, (R5) ; CHECK IRR 
1690 010764 001401 BEQ 2$ 
1691 010766 104003 7 ERROR 3 7 IRR ERROR 
1692 010770 010037 001122 e$: MOV RC, S$BDADR 
1693 010774 113710 001372 MOVB IMRLOC, (RO) 3SET IMR BIT 
16946 011000 012737 000320 601124 MOV #320,$GDDAT ;CSR EXPECTED DATA 
1695 011006 111015 MOVB (RO), (R5) 
1696 011010 042715 000007 BIC #7,(R5) ;CLEAR UNDEFINED BITS 
1697 011014 023715 001124 CMP $GDDAT, (R5) 
1698 011020 001401 BEQ 3$ 
1699 011022 104007 ERROR 7 ;CHIP STATUS ERROR 
1700 011024 010137 001122 3$: MOV R1,$BDADR 
1701 011030 011237 001124 mo (R2) ,SGDDAT sEXPECTED DATA 
1702 011034 112710 000244 MOVB #MIMR, (RO) ;READ IMR SITS 
1703 011060 111115 MOVB (R1),(R5) ;SAVE IMR READ | 
1704 011042 023715 001124 CMP $GDDAT,(R5) 
1705 011046 007401 BEQ ss 4$ | 
1706 011050 104005 ERROR 5 7 IMR_ERROR | 
1707 011052 005722 4$: TST (R2)+ iNEXT EXPECTED FOR IMR + IRR 
1708 011054 020227 013132 CMP R2,MEDCHP1 ;CHECK FOR END | 
1709 011060 001407 BEQ 5$ 
1710 011062 005237 001376 INC IRRLOC ;NEXT IRR BIT 
1711 011066 005237 601372 INC IMRL OC iNEXT IMR BIT 
1712 011072 005204 INC RS ; INDEX EXPECTED STATUS 
1713. 011074 000137 010710 JMP 112$ 7DO NEXT STATUS CHECK 
1714 011100 005303 5$: DEC R3 7FINISHED BOTH GROUPS? 
1715 011102 0601406 BEQ TST44 ;:BR IF EQUAL 
1716 011106 013700 001352 MOV DRCSC.RO 
1717, 011110 013701 001356 MOV DRCSD,R1 
ba 011114 000137 010626 JMP 111$ ;DO NEXT GROUP 
1720 
1721 LLU ERR EEE EERE EER AEE ERE REE RR E TR Re 
1722 p*TEST 44 TEST POLLED MODE;CSRS A,B=OUT ©,D=IN,AC(IVE LOW 
1723 2 SLUR AAA AERA EEE RARER EERE AERA REAR RREERE ERE ERE 
1724 011170 000004 TST44: SCOPE 
1725 011122 004737 0613002 JSR PC,CLRCSR CLEAR ALL CSRS 
1726 ;RO = CSRA-GROUP 1 CONTROL 
1727 ;R1 = CSRB-GROUP 1 DATA 
1728 :R2 = CSRC-GROUP 2 CONTROL 
1729 é ;R3_= CSRD-GROUP 2 DATA 
1730 011126 012737 911170 001110 MOV #1$,$LPERR ;SET FOR SCOPE RETURN 
1731 011134 012706 013110 MOV #BEGPAT ,R4 ;START OF PATTERN TABLE 
1732 011140 112760 000001 000001 MOVB #81T0,1(RO) 7SET CSRA TO OUTPUT MODE 
fe i, 011146 112761 0600001 000001 MOVB #BIJT0,1(R1) ;SET CSRB TO OUTPUT MODE 
1735 011154 105010 CLRB (RO) ; CHIP RESET GROUP 1 CSRA 
1736 011156 105012 CLRB (R2) CHIP RESET GROUP 2 CSRC 
1737 011160 112710 000204 MOVB #204, (RO) ;LOAD MODE BITS FOR POLLED MODE .GR i 
1738 017164 112712 000204 MOVB #204, (R2) ;LOAD MODE BITS FOR POLLED MODE ,GR2 
1739 011170 011460 000002 1$: MOV (RS) ,2(RO) ;SET PATTERN DBRA FROM H TO L 
1740 011174 112710 000020 MOVB CI RMR, (RO) ;CLEAR IMR+IRF. GROUP 1 | 
1741 011200 112712 Q00020 MOVB #CIRMR, (R2) ZCLEAR IMR+IRR GROUP 2? 
‘742 017206 005060 000002 CLR —-2(RO) ZCLEAR DBRA,ACTIVE LOw WILL SET RPL ¥ | | 
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12:58 PAGE 36 


TEST POLLED MODE;CSRS A,R=OUT C,D=IN,ACTIVE LOW 


; GROUP 1 DATA PORT 
:LOAD BITS TO READ IRR 


READ IRR,GROUP | 


; IRR ERROR,GROUP 1 

:GROUP 2 DATA PORT ; 
;LOAD MODE BITS TO READ IRR GROUPZ 
;BUILD EXPECTED DATA 

;SAVE BITS 0-3 

sEXPECTED O-3.URPLY 6(() 

;READ IRR BITS,GROUP 2 


; IRR ERROR,GROUP 2 
sREAD DBRC FOR RPLY 4(4) 
sSTORE EXPECTED 

;READ IRR BITS,GROUP 2 


: IRR ERROR,GROUP 2 
;CLEAR-DBRB FOR RPY 7(D) 
SEXPECTED 

;READ_-IRR BITS GROUP 2 


; IRR ERROR,GROUP 2 
READ DBRD FOR RPLY 5(R) 


;READ IRR BITS GROUP2 


;GET NEXT PATTERN 
IRR ERROR,GROUP 2 
; INDEX DATA TABLE 

; CHECK FOR END 

3D0 NEXT PATTERN 


WERAAARASAARARRAARARRRRSRRRER RRS RR RRR RR ERR RRR RRR RRR RRR RRR RASS SD 


TeTEST 45 


15145: 


1118: 


18-0( 1-79 
MOV R1,$BDADR 
MOVB  #MIRR, (RO) 
MOVB _—s(R4) , $GDDAT 
MOVB _— (R11). (R5) 
CMP $GDDAT, (R5) 
BEQ 3$ 
ERROR 3 
MOV R3, $BDADR 
MOVB  #MIRR, (R2) 
MOVB _—«1(R4) . $GDDAT 
BIC #360,$GDDAT 
BIS #100. $GDDAT 
MOVB _— (R33). (R5) 
CMP $GDDAT, (R5) 
BEO 4$ 
ERROR 
TST R2) 

BIS #20, $GDDAT 

MOVB (R33, (R5) 

CMP $GDDAT, (R5) 

BEQ 

ERROR 

CLR ) 

BIS #200, $GDDAT 

MOVB — (R33). (R5) 

CMP $GDDAT, (RS) 

BEQ 

ERROR 3 

TST 2(R3) 

BIS #40, $GDDAT 

MOVB _— (R38), (R5) 

CMP $GDDAT, (RS) 

BEQ 7$ 

ERROR 3 

TST (R4)+ 

CMP R4,MENDDAT 

BNE 1$ 

TEST GROUPS 

"RRR eeeeekeaeaneee 

SCOPE 

JSR PC, CLRCSR 

MOV #2,R4 

MOVB  4#B!T0,1(RO) 

MOVB #BIT0.1(R7) 

MOV #-1,2(RO) 


1,2 IN POLLED MODE,NO REPLY 


(AR RRRRASASRSSRASR ARES ERR SRR RRR RRR ASS SE! 


:CLEAR ALL cSRS 


RO = CSRA-GROUP 1 CONTROL 

3R1 = CSRB-GROUP 1 DATA 

;R2 = CSRC-GROUP 2 CONTROL 

3R3 = CSRD-GROUP 2 DATA 

;TWO PASSES 

sFIRST PASS CSRA,CSRB = OUTPUT 
; CSRc.CSRD = INPUT 
7 SEC PASS CSRC,CSRD = OUTPUT 
: CSRA = ]NPU 


“SET CSR TO OUTPUT MODE 
*SET CSR TO OUTPUT MODE 
‘SET ALL ONES DBR FOR H TO L 
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P11 18-0CT=79 12:53 145 TEST GROUPS 1,2 IN POLLED MODE,NO REPLY - 
011442 105010 CLRB (RO) : CHIP RESET GROUP’ CSR 
011444 105012 CLRB (R2) :CHIP RESET GROUP CSR 
011446 112710 000204 MOVB #204,(RO) [LOAD MODE BITS FOR POLLED MODE 
011452 112712 000204 MOVB #204, (R2) [LOAD MODE BITS FOR POLLED MODE 
011456 112710 000020 MOVB #CIRMR, (RO) ZCLEAR IMR+IRR 
011462 112712 000020 MOVB #CIRMR, (Re) 7CLEAR IMR+IRR 
011466 005760 000002 TST 2(RO) ;READ. DBR “IN OUTPUT MODE,NO REPLY 
011472 012737 000320 001124 MOV #320, SGDDAT > STORE: EXPECTED 
011500 010037 001122 MOV _—~RO, SADAD STORE ADDRESS | 
011504 111015 MOVB (RO), (RS) READ STATUS 
011506 042715 000007 BIC #7,(R5) ~~ @CLEAR UNDEFINED BITS | 
011512 023715 001124 CMP $GDDAT,(R5) -  ; CHECK STATUS 
011516 001401 BEQ 1$ , 
011520 104007 ERROR 7 - ;CHIP STATUS ERROR 
011522 010237 001122 1$: MOV R2,$BDADR .. -- ; STORE cARORESS 
011526 111215 MOVB (R2),(R5) ~-* .3READ STATUS 
011530 042715 000007 BIC #7,(R5) _ _.gGLEAR UNDEFINED BITS 
011534 023715 001124 CMP $GDDAT, (R5) 
011540 001401 BEQ 2s ; 
011542 104007 ERROR 7 “ atule syans Rt 
011544 012762 000000 000002 2$: MOV #0,2(R2) i WBITE LYsDBR I NPT MODE FC FOR NO REPLY 
011552 005761 000002 TST 2(R1) READ =BBR OUTPUT nope 
011556 012763 000000 000002 MOV #0,2(R3) _ = pWRITE ONLY, DBR: i 7 MODE NO REPLY 
011564 010137 001122 MOV R1,$BDADR - ~ 23 SHIP ATA PORT 
011570 112710 000250 MOVB  #MIRR, (RO) =k AD BIJS_TO READ IRR 
011574 037 001124 CLR $GDDAT - -.. - = Leal ‘BE ZERO 
011 111115 MOVB (R1), (R35). => “READ FRR 
011602 023715 001124 CMP SGDDAT, (RS) ay ceo ote as 
011606 001401 BEQ 3$ satel Ys oe . 
011610 104003 , ERROR 3 Z IRR: ERROR = 2 
011612 010337 001122 3$: MOV R3,SBDADR * sCHIP-DATA PORT 
011616 112712 000250 MOVB  A#MIRR, RB) ax. be MODE 8115 TO READ IRR, 
011622 111315 MOVB (R3) ,{R5). “eZ GR READ. TRR BITS 
011624 023715 001124 CMP ScDDAT., (R5) gi . ter 
011630 001401 BEQ 4$ 5 sett 
011632 104003 ERROR 3 wa--4 LES “LIBR: ERR < 
011634 005304 48: DEC R4 , gee © BF INI HED. two. pues. 
011636 001415 BEQ TST466 +2. 7 =. om >BR=IF -EQU 
011640 004737 013002 JSR PC,CLRCSR™- “2.*-> CLES sAL'L-£SBS 
011644 013700 001352 MOV DRCSC,RO > += - “FSET WP FOR NEX! “PASS. a 
011650 013701 001356 MOV DRCSD.R1- 2 22 eng ORS Om, : 
011654 013702 001 342 MOV DRCSA,R2 - | = se . a. < +. : yt "oe. ot be 
011660 013703 001346 MOV DRCSB,R3 . 7° Rn Pheer een eo _- 
011664 000655 shy 111$ ek ;D0 NEXT. PASS”. ew fh? ge eS 
-« z in > 7 ” = ‘ad 
; ° s eesseesesenseccooecvesecenssiaa ftccesl NEN LAIRAT ANTE = ~ - eer 4 
S*TEST 46 TEST POLLED MODE; CSRS’ C;D=QUT A,B=IN ACTIVE 1 Ow © ee oe 
° jeeeeeeneneeennecenensecceensepacasensuaenaseennaenanseneeienens | & wre ° 

011666 000004 15146: SCOPE wane ss , * 
011670 004737 013002 JSR PC,CLRCSR ZCLEAR ALL CSRS i ey 

:RO = -CSRA-GROUP 1 CONTROL <7) 2 “~ 

7R1 = CSRB=GROUP 1 DATA Sa a oi} 

:R2 = CSRC=GROUP 2 CONTROL . ° = s"s =: 

;R3 = CSRD-GROUP 2 DAT ot ow a + Ae 

011676 012737 011736 001110 MOV #1$,$LPERR 7SCOPE LOOP RETURN -., ; . “. sg? 
911702 012706 013110 MOV #BEGPAT ,R4 ;PATTERN TABLE ey Ss ;, 7 
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CVDRCA.P11 18-OCT-79 12:53 146 TEST POLLED MODE;CSRS C,D= ut A,B=IN,ACTIVE LOW 
1855 011706 112762 000001 000001 MOVB #B1T0,1(R2) ZSET-CSRC TO OUTPUT MODE : 
1856 011714 112763 000001 000001 MOVB #B1T0,1(R3) ;SET CSRD TO QUTPUT MODE es. 
1857 011722 105010 (LRB (RQ) 7 CHIP RESET GROUP 1 cow 
1858 011724 105012 CLRB (Re) SCHIP RESET GROUP 2 C 
1859 011726 112710 000204 MOVB #204, (RO) : LOAD MODE =BITS FOR BOLLED MODE ,GR 1 
1860 011732 112712 000204 MOVB #204, (R2) AD MODE BITS FOR ate MODE ,GR2 
1861 011736 071462 000002 1$: MOV (R4) ,2(R2) ‘SET _PATTERN DBRC FOR H TO L 
1862 011742 112710 000020 MOVB #CIRMR,<RO) CLEAR IMR+IRR po 4 
1863 011746 112712 000020 MOVB #CIRMR, (R2) TCLEAR IMR+IRR_ GROUP 
1864 011752 005062 000002 CLR 2(R2) CLEAR DARC, = ed La 4 who WILL SET RPLY & 
1865 011756 010137 001122 e$: MOV R1,$BDADR GROUP 1 DATA 
3 011762 112770 000250 MOVB AMIRR, (RO) “LOAD BITS TO READ IRR 
1867 011766 111437 001124 MOVB (R4) ,S$GDDAT 
1868 011772 111115 MOVB (R1),(R5) ;READ IRR,GROUP 1 
1869 011774 023715 001124 CMP $GDDAT, (R5) 
1870 012000 001401 BEQ 3$ 
1871 012002 104003 ERROR 3 2 IRR ERROR ,GROUP 1 
1872 012006 010337 001122 3$: MOV R3,$BDADR GROUP 2 DATA PORT 
1873 012010 112712 000250 MOVB #MIRR, (R2) ‘POAD MODE BITS TO READ IikR GROUP2 
1874 012014 116437 000001 001124 MOVB 1(R4) ,$GDDAT 
1875 012022 042737 000360 001124 BIC #360, $GDDAT iSAVE BITS 0-3 
1€76 012030 052737 000020 001124 BIS #20,$GDDAT _sEXPECTED O=3,URPLY 4(A) 
1877 012036 111315 MOVB (R3),(R5) READ IRR BITS,GROUP 2 
1878 012040 023715 001124 CMP GDDAT, (RS) 
1879 012044 001401 BEQ 4$ 
1880 012046 104003 ERROR 3 IRR ERROR,GROUP 2 
1881 012050 005760 000002 4$: TST 2(RO) READ DBRA FOR RPLY 6(C) 
1882 012054 052737 000100 001124 BIS #100, $GDDAT STORE EXPECTED 
1883 012062 111315 MOVB (R3),(R5) :READ IRR BITS,GROUP 2 
1884 012066 023715 001124 CMP SCODAT, (RS) 
1885 012070 001401 BEQ 5% 
1886 012072 104003 ERROR 3 7 IRR ERROR,GROUP 2 
1887 012074 005063 000002 5$: CLR 2(R3) . ; CLEAR DBRD FOR RPY 5(B) 
1888 0121 052737 000040 001124 BiS #40, $GDDAT EXPECTED 
1889 012106 111315 MOVB (R3),(R5) ;READ IRR BITS GROUP 2 
1890 012710 023715 001124 CMP $SGDDAT, (R5) 
1891 012114 001401 BEQ 6$ 
1892 012116 104003 ERROR 3 ;I1RR_ ERROR,GROUP 2 
1893 012120 005761 000002 6$: - TST 2(R1) ;READ DBRB FOR RPLY 7(D) 
1884 012124 062737 000200 001124 BIS #200, SGDDAT 
1895 012132 111315 MOVB (R3),(R5) ;READ IRR BITS GROUP2 e 
1896 012134 023715 001124 CMP» $GDDAT, (R5) 
1897 012140 001491 BEQ 7$ 
1898 012142 104003 ERROR 3 7 IRR_ERROR,GROUP 2 
1899 012144 00572¢ 7$: TST (R4)+ ; INDEX DATA TABLE 
1900 €12166 020427 015410 CMP R4 ,MENDDAT CHECK FOR END 
1901 O121'2 001271 BNE 1$ ;DO NEXT PATTERN 


SL MAAAAAHAAAAAAAAAKAAKARAAAAKRAKAKAAHAKAKAKANAHHanAaeeenaRgaaneean 


ceTEST 47 TEST IRR BITS WITH DATA PAT.,POLLED MODE,ACT. HIGH 


SreRAAAAAAAAAHAAAARHAAAAAHEAAAAAREKERAREHRARHEKHHATRKeKeekaneneneee 


1S$147: SC@PE 


JSR PC, CLRCSR :CLEAR ALL CSRS 
MOV #BEGPAT RS 3GET DATA PATTERN TABLE 





J 4 | 
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CVDRCA.P11 18-OCT-79 12:53 147 TEST IRR BITS WITH DATA PAT.,POLLED MODE,ACT. HIGH 


1911 012166 012737 000001 001110 MOV #1,$LPERR :SET UP SCOPE ADDRESS 

1912 012174 01 001342 MOV DRCSA,RO 

1913 012200 013701 001346 MOV DRCSB.R1 

1914 012206 013702 001356 ; MOV DRCSD.R2 

1915 012210 112760 000001 000001 MOVB  #BITO.1(RO) :CSRA OUTPUT MODE 

1916 012216 112761 000001 000001 MOVB  #BITO.1(R1) *CSRB OUTPUT MODE 

1917. 012224 112710 000224 MOVB #224, (RO) “LOAD MODE BITS FOR POLLED MODE,GP1 
1918 012230 112760 000224 000010 MOVB  #224.10(RO) *LOAD MODE BITS FOR POLLED MODE .GP2 
1919 012236 005060 000002 1$: CLR 2(RO) SCLEAR DBRA 

1920 012242 112710 000020 MOVB = #CIRMR, (RO) SCLEAR IMR +IRR GROUP 1 

1921 012246 112760 000020 000070 MOVB  #CIRMR.10(RO) CLEAR IMR + IRR GROUP 2 

1922 012254 011360 000002 MOV (R3) ,2(RO) ‘STORE PATTERN INTO DBRA 

1923 012260 010137 001122 MOV R1,$BDADR *CSRB ADDRESS 

1924 012264 112710 000250 MOVB  #MIRR, (RO) ‘LOAD BITS TO READ IRR1 

1925 012270 111337 001124 MOVB _—(R3) , $GDDAT 

1926 012274 111115 MOVB — R17). (R5) :READ IRR,GP1 

1927 012276 023715 001124 CMP $GDDAT, (R5) 

1928 012302 001401 BEQ 2$ 

1929 012304 104003 ERROR 3 :IRR ERROR, GP1 

1930 012 010237 001122 2$: MOV R2,$BDADR *CSRD ADDRESS 

1931 012312 112760 000250 000010 MOVB  #MIRR,10<RO) :SET MODE TO READ IRR BITS GROUP 2 
1932 012320 116337 000001 001124 MOVB  1(R3).$GDDAT BUILD EXPECTED DATA 

1933 012326 042737 000360 001124 BIC #360, $GDDAT “BITS 0-3 EXPECTED 

1934 012334 052737 000100 001124 BIS #100,$GDDAT ‘A’ REPLY EXPECTED 

1935 012342 111215 MOVB — (R2) . (R5) TREAD IRR2 

193% 012344 023715 001124 CMP $GDDAT, (R5) 

1937 012350 001401 BEQ 3$ 

1938 012352 104003 ERROR 3 :IRR GROUP 2 

1939 012354 005723 3$: TST (R3)+ ‘INDEX DATA TABLE 

1940 012356 020327 013410 CMP .» R3,A4ENDDAT ; CHECK FOR PATTERN END 

1961 012362 001325 3NE 1$ “DO NEXT PATTERN 

1943 

19464 LT EARAAA AAR EAERARAARE RRR KEAAEAERARAE REAR ARERR ERR 
1945 S*TEST 50 TEST CSRA AND CSRB WITH RESET 

1946 VERA ASRASSASAASAAASLLSSLESS ES SRR SSR SR ER SRE RRR RR RSE RRR RRR RSE RSE SRR SRR SS | 
1947 012364 000004 T5150: SCOPE 

1948 012366 012737 000001 001160 MOV #1, $TIMES ::D0 1 ITERATION 

1949 012374 004737 013002 JSR PC; CLRCSR ‘CLEAR ALL CSRS 

195C 012400 013700 001342 MOV DRCSA,RO 
1951 012404 013701 001346 MOV DRCSB.R1 

1952 012410 112760 001001 000001 MOVB  #IE'BITO.1(RO) ;:CSRA TO OUTPUT MODE 

1953 012416 112761 000001 000001 MOVB #BI1T0,1(R1) ‘SET CSRB TO OUTPUT MODE 

1954 012424 (€10037 001122 MOV RO, $BDADR SSTORE CSRA ADDRESS 

1955 012430 012737 100300 001124 MOV #100300,$GDDAT “:RDY + CHIP STATUS EXP"D 

1956 012436 000005 RESET : INITIALIZE 

1957 012440 011015 MOV (RO). (RS) SSTORE REC'D 

1958 012442 042715 000007 BIC #7, (R25) *CLEAR UNDEFINED BITS 

1959 012446 023715 001124 CMP $GDDAT, (RS) [MAKE COMPARE 

7960 012452 001401 BEQ 1$ 

1961 012454 104002 ERROR 2 :CSRA ERROR ON RESET 

1962 012456 012737 100000 001124 1$: MOV #100000, $GDDAT STORE EXPECTED 

1963 012464 010137 001122 MOV R1, $BDADR SCHECK CSRB 

1964 012470 011115 MOV (RI), (R5) :STORE IN $BDDAT 

1965 012472 023715 001124 _ (MP $GDDAT, (85) “MAKE COMPARE 

1966 012476 001401 23.) Ga TST51 +:BR IF EQUAL 
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012500 


012620 


104002 


000007 
001124 


001122 
100000 


001124 


MACY11 


001160 


000001 
000001 


001124 


001124 
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TEST CSRA AND CSRB WITH RESET 


ERROR 2 ;CSRB ERROR WITH RESET 
SOOO ISU I IIUIOIUIIUIUISIII I IIIIIIOIIIOIUI I I itt 
T*TEST 51 TEST CSRC AND CSRD WITH RESET 
SUISSE IO IUISIUISIUIUIOIUIOISIOI SIUC IOI IGIOIUIDIUIUIOIDIDIOIISINIDIDIIDIOIDIIDIOR DIDI IO toE 
$8151: SCOPE 
MOV #1.$TIMES 3:D0 1 ITERATION 


MOVB #BITO,1(R2) :SET CSRC TO OUTPUT MODE 

MOVB #8110. 1(R3) ‘SET CSRD TO OUTPUT MODE 

MOV SSTORE ADDRESS 

MOV FF 60000. SGDDAT *RDY + CHIP STATUS 

RESET S INITIALIZE 

MOV (R2), (R5) “STORE CSRC 

BIC #7, (RS) =CLEAR UNDEFINED BITS 

CMP SGDDAT. (RS? [MAKE COMPARE 

ERROR 2 ZCSRC ERROR WITH RESET 
1$: MOV R3, $BDAD “CHECK CSRD 

MOV #100000 SGDDAT SSTORE EXPECTED 

MOV (R3),(R5) sREAD CSRD 

CMP $GDDAT, (R5) [MAKE COMPARE 

BEG 2$ 

ERROR 2 :CSRD ERROR ON RESET 


0049 
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001342 
001364 
000020 
001202 
000001 
002032 


012765 
001176 


012762 
000042 


277 
042412 
051501 
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0013€4 


001176 


000 
042176 
020123 


TEST -CSRC AND CSRD WITH RESET 


ee, T REPORT ‘EOP’ UNTIL ALL SELECTED DRV11-J'S HAVE BEEN TESTED. 


MOV DRCSA,R1 ; INIT TO SETUP NEXT DRV11J ADDRESSES 
NXDEV1: CLC ;CLEAR CARRY FOR DEVICE MAP 

ROR DMAP :LOOK FOR NEXT DRVTiJ 

BEQ $E :BR IF ALL TESTED 

SUB #20,R1 NEXT DRVi1=J STARTS =20 

INC SUNIT [UPDATE UNIT NUMBER 

BIT #1 ,DMAP IS UNIT SELECTED? 


sNEXT,1F NOT SELECTED 
JMP PAS TEST NEXT DRV11-J 
-SBITL END OF PASS ROUTINE 


IORI ORR IOI ISIC IOI IOI IIT TOR TOTTORI TIAA IAISISA ISSA AIS AS AM 
;* INCREMENT THE PASS NUMBER ($PASS) 

*TYPE "END PASS #XXXXX'' (WHERE XXXXX IS A DECIMAL NUMBER) 

;*IF THERES A MONITOR GO TO IT 

:*I1F THERE ISN'T JUMP TO START1 


SEOP: 
NOP 
CLR $TSTNM 4 THE TEST NUMBER 
CLR $TIMES :ZERO THE NUMBER OF ITERATIONS 
INC $PASS ; INCREMENT THE PASS NUMBER 
BIC #100000, $PASS = TDON' T ALi OW A NEG. NUMBER 
DEC (PC) + ;; LOOP? 
SEOPCT: .WORD 1 
BGT SDOAGN ss ves 
MOV (PC) +,a(PC)+ ;cRESTORE COUNTER 
$ENDCT: .WORD 1 
SEOPCT 
TYPE ~ SENDMG si TYPE “END PASS #"’ 
MOV $PASS ,-(SP) 7 ,SAVE SPASS FOR TYPEOUT 
TYPDS 32GO TYPE--DECIMAL ASCII WITH SIGN 
TYPE SENULL ;; TYPE A NULL CHARACTER 
$GET42: MOV a442,R0 ::GET MONITOR ADDRESS 
BEQ SDOAGN os CH IF NO MONITOR 
RESET TZ CLEAR THE WORLD 
SENDAD: JSR PC, (RO) ::GO TO MONITOR 
NOP soe ROOM 
NOP 
NOP Stacray 
SDOAGN: 
JMP a(PC)+ 7 RETURN 
$SRTNAD: .WORD sianit 
SENULL: .BY7TE 0 sNULL CHARACTER STRING 


$ENDMG: .ASCIZ “list nse PASS’ #7 


PAGE : 


0059 
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CVDRCA DRVI1J pi Ts? PRT1 
CVDRCA.P11 18-0CT=/9 12:53 PROGRAM SUBROUTINES 
2047 -SB7TL PROGRAM SUBROUTINES 
2048 
2049 
2050 JSS SISISIOIIIOIIIIISIUISIOIIOIIIDISIIIOIOIOIOIOIOIOIOUIOIOIDIUIOIDIOIOIOIOIOIOIDIDIDIOIII IIIT TIE TOIT 
2051 CLEAR ALL CONTROL/STATUS REGISTERS 
2052 ZINIT REGISTERS RO=Ft4 WITH CSRA=CSRD 
2053 ;AND STORE $B8DDAT INTO R5. 
2054 DSSS III IOIOIOIOIOIOIOIOIIOIOIOICIOIOIOIOIOIOIOIOI ITT TOI ITA SSI AASASASASSASSSSSASACSS 
2055 013002 012705 001126 CLRCSR: MOV #SBDDAT ,R5 ;BAD DATA STORAGE IN R5 
2056 013006 013700 001342 MOV DRCSA,RO :CSRA ADDRESS TO RO 
2057 013012 013701 001346 MOV DRCSB.R1 :CSRB ADDRESS TO R1 
2058 013016 013792 001352 MOV DRCSC,R2 :CSRC ADDRESS TO R2 
2059 013022 013703 001356 MOV DRCSD RS ;CSRD ADDRESS TO R3 
013026 005037 001124 CLR $GDDAT CLEAR ee 
2061 013032 005015 CLR (R5) ZCLEAR REC'D 
2062 013034 005010 CLR (RO) CLEAR CSRA;CHIP RESET GROUP 1 
2063 013036 105061 000001 CLRB 1(R1) [CLEAR HIGH BYTE CSRB 
2064 013042 005012 CLR (R2) :CLEAR CSRC;CHIP RESET CROUP 2 
2065 013044 105063 000001 CLRB 1<R¥) CLEAR HIGH BYTE CSRD 
2066 013050 000207 RTS PC 
2067 
2068 
2069 CLEAR IRR REGISTERS,GROUP 1,GROUP 2 WITH CHIP RESET 
2070 013052 010046 CLRIRR: MO\' RO,-(SF) 
2071 013054 013700 001342 MOV DRCSA,RO :START OF CSR_ ADDRESS 
2072 013060 105060 000011 CLRB 11(RQ) ;CSRC TO INPUT MODE 
2073 013064 112760 000601 090001 MOVB #B1T0,1(RO) ;CSRA_TO OUTPUT MODE 
2074 013072 000002 CLR 2(RO) CLEAR DBRA 
2075 013076 105010 CLRB (RO) CHIP RESET OF GROUP1 
<£76 013100 105060 000010 CLRB 10(RO) CHIP RESET OF GROUP 2 
2077 013104 012600 MOV (SP)+,RO sRESTORE REGISTER 
2078 013106 000207 RTS PC sEXIT 
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SUBROUTINES 


20806 
SoRS .SBTTL PATTERNS FOR REGISTER R/W 
2083 ;PATTERNS USED FOR LO4DING/READING REGISTERS 
2085 013110 000000 BEGPAT: 0 GROWING 1 | 
2086 013112 000001 BGPAT1: 1 
2087 013114 000003 2 
2088 013116 000007 7 
2089 013120 000017 17 
2090 013122 000037 37 
2091 013124 000077 77 
2092 013126 000177 177 
2093 013130 000377 377 
2094 013132 000777 EDCHP1: 777 
2095 013134 001777 1777 
2096 013136 003777 3777 
2097 013140 007777 7777 

198 013142 017777 17777 

013144 037777 37777 

2100 013146 077777 77777 
2101 913150 177777 177777 
2102 013152 177776 BGCHP2: 177776 ; GROWING 0 
2103 013154 177774 177774 
2104 013156 177770 177770 
2105 177760 177760 
2106 013162 177740 177740 
2107 013164 177700 177700 
2108 013166 177600 177600 
2109 013170 177400 EDCHP2: 177400 
2110 0135172 177900 177000 
2111 013174 176000 176000 
2112 013176 174090 174000 
2113 013200 170000 170000 
2114 013202 160000 160000 
2115 013294 149000 140000 
sis 01320€ 100000 100000 
2118 013210 000000 000000 
2119 013212 000001 BGCHP3: 1 WALKING 1 
2120 013214 000002 2 
2121 013216 000004 4 
2122 013220 000010 10 
2123 013222 000020 20 
2124 013224 000040 40 
2125 013226 000190 100 
2126 013230 000200 , 200 
21 013232 000400 EDCHPS: 400 
2128 013234 001000 1000 
2129 013236 002000 2000 
2130 013240 004000 
2131 013242 010000 10000 ' 
2152 013244 020000 20000 
2133 013246 040000 40 
2134 013250 100000 100000 
2135 013252 177777 177777 WALKING 0 


eee A en ee a 
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CVDRCA.P11 18-OCT-79 12:53 PATTERNS FOR REGISTER R/W 
2136 013254 177776 BGCHP4: 177776 
2137 013256 177775 177775 
2138 013260 177773 177773 
2139 013262 177767 177767 
2140 013264 177757 177757 
2141 66 177737 ~ 177737 
2142 013270 177677 177677 
2143 013272 177577 177577 
2144 013274 177377 EDCHP4: 177377 
2145 013276 176777 176777 
2146 013300 175777 175777 
2147 013302 173777 173777 
2148 013304 167777 167777 
2149 0 157777 157777 
2150 013310 137777 137777 
2151 013312 077777 077777 
2152 013314 177777 177777 
$ier 013316 000000 ENDPAT: 000000 

% . 
2155 ;DATA_ PATTERNS 
2156 013320 155555 PATDAT: 155555 
2157 013322 133333 133333 
2158 013324 066666 066666 
2159 013326 125252 125252 
2160 330 052525 052525 
2161 013332 477777 177777 
2162 013334 000000 
2163 013336 107070 107070 
2164 013340 070707 070707 
2165 013342 144444 144444 
2166 013344 033333 033333 
2167 013346 011111 011111 
2168 013350 022222 022222 
2169 013352 044444 044444 
2170 013354 111111 111111 
2171 013356 1 166666 
2172 3360 010421 010421 
2173 013362 021042 021042 
2174 013364 031463 031463 
2175 3366 0421 042104 
2176 013370 063146 063146 
2177 013372 073567 073567 
2178 013374 104210 104210 
2 013376 114631 114631 
2180 013400 135673 135673 
2181 a ae 146314 146314 


167356 
84 013410 000000 ENDDAT: 000000 
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CVDRCA.P11 18-0C T= 12:53 SYSMAC ROUTINES 
sie -SBTTL SYSMAC ROUTINES 
Sia .SBTTL TYPE ROUTINE 
2190 DDO IO IIIIDIIDIISIIOIOIOISIUIOIOIOIIOIOIOIOIOIOIUIDIUIUIDIDIDIDIOIOIUIUIDIUIDIUIDIDIDIOIIOI TOR tot tet 
2191 + *ROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
2192 ;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 
2193 + *NOT E1: $SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACT ER. 
2196 :*NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
sion : *NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
2197 TACALL: 
2198 :*1) USING A TRAP INSTRUCTION 
2199 TYPE »MESADR 7zMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
2200 :+0R 
2201 TYPE 
202 ce ME SADR 
2203 39 
2204 
2205 013412 105737 001157 $TYPE: TSTB STPFLG et He A TERMINAL ? 
2206 013416 100002 BPL 1$ ; IF YES 
2207 013420 000000 HALT SHALT HERE IF NO TERMINAL 
2208 013422 000430 BR 3$ «LEAVE 
2209 013424 010046 1$: MOV RO,~<SP) 77 SAVE RO 
2210 013426 017600 090002 MOV a2 (SP) ,RO 3:GET ADDRESS OF ASCIZ STRING 
2211 013432 122737 000001 001210 CMPB MAPTENV, SENV 7 RUNNING IN APT MODE 
2212 013440 001011 BNE 62$ 32NO,GO CHECK . APT CONSOLE 
2213 013442 132737 000100 001211 BITB #APTSPOOL . SENVM : ¢ SPOOL l. MESSAGE TO APT 
2214 013450 001405 BEQ 62$ :NO,GO CHECK FOR. CONSOLE 
2215 013452 010037 013462 MOV RO,61$ [SETUP MESSAGE ADDRESS FOR APT 
2216 013456 004737 013702 JSR PC, SATY3 3:SPOOL MESSAGE TO APT 
2217 013462 000000 61$: -WORD 0 3 zMESSAGE ADDRESS 
2218 013464 132737 000040 001211 62$: BITB #APTCSUP,SENVM ;;APT CONSOLE SUPPRESSED 
2219 013472 001003 BNE 6 37 YES.SKIP TYPE OUT 
2220 013474 112046 es: MOVB (RQ)+,=(SP) 77PUSH CHARACTER TO BE TYPED ONTO STACK 
2221 013476 001005 BNE 4$ + BR IF IT ISN'T THE TERMINATOR 
2222 013500 005726 TST (SP)+ :I1F TERMINATOR POP IT OFF THE STACK 
2223 013502 012600 60$: MOV (SP) +,RO ; ;RESTORE RO 
2224 013504 062716 000002 3$: ADD #2, (SP) ; ADJUST RETURN PC 
2225 013510 000002 RTI ; ;RETURN 
2226 013512 122716 900011 4$: CMPB WHT, (SP) + BRANCH IF <HT> 
2227 013516 001430 BEQ 8$ ; 
2228 013520 122716 000200 CMPB ACRLF, (SP) ; BRANCH IF NOT <CRLF> 
22. 013524 001006 BNE 5$ 
2230 013526 005726 TST (SP)+ 77POP <CR><LF> EQUIV 
2231 013530 104401 TYPE 7i TYPE A CR AND LF 
2232 013532 001165 SCRLF 
2233 013534 105037 013670 CLRB SCHARCNT SCLEAR CHARACTER COUNT 
2234 013540 000755 BR 2$ ;GET NEXT CHARACTER 
2235 013542 004737 013624 5$: JSR PC, STYPEC 260 TYPE THIS CHARACTER 
2236 013546 123726 001156 6$: CMPB SFILLC,(SP)+ tr1S IT TIME FOR Ae CHARS .? 
2237 0613552 001350 BNE 2$ 37 1f NO GO GEY NEXT CHAR, 
$Si0 013554 013746 001154 MCV S$NULL > (SP) 3 3GET THE ML tig o™ CHARS. NEEDED 
2240 013560 105366 000001 7$: DECB 1(SP) $s mut ‘NEED TO BE TYPED? 
2241 013564 002770 BLT 6$ ;;BR IF NO=--GO POP THE NULL OFF OF STACK 
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2242 013566 006737 013624 JSR PC, $STYPEC :2GO TYPE A NULI. 


2243 013572 105337 013670 DECK $CHARCNT :zDO0 NOT COUNT AS A COUNT 
2244 013576 000770 aR 7§ : LOOP 
$5e9 HORIZONTAL TAB PROCESSOR 
2248 013600 112716 0000460 8$: MOVB #° (SP) ZZREPLACE TAB WITH SPACE 
5349 013604 004737 013626 9$: JSR PC, ST YPEC “TYPE A SPACE 
5580 013610 132737 000007 013670 BITB #7 SCHARCNT ‘BRANCH IF NOT AT 
5551 013616 001372 BNE 9$ <I TAB STOP 
2252 013620 005726 TST (SP)+ :7POP SPACE OFF STACK 
5553 013622 00072 BR $ {GET NEXT. CHARACTER 
2254 013624 105777 165320 $TYPEC: TSTB asTPs WAIT UNTIL PRINTER IS READY 
5555 013630 100375 BPL ss $TYPEC 
2256 013632 116677 000002 165312 MOVB 2(SP) ,a$TPB ;7LOAD CHAR TO BE TYPED INTO DATA REG. 
2257 013640 122766 000015 000002 CMPB #CR,2(SP) ;71S CHARACTER A CARRIAGE RETURN? 
5558 013646 001003 BNE i$ “BRANCH IF NO 
2259 013650 105037 013670 CLRB SCHARCNT 7 YES=--CLEAR CHARACTER COUNT 
5360 013654 000406 BR $TYPEX STEXIT 
2261 013656 122766 000012 00002 1$: CMPB #LF,2(SP) 7718S CHARACTER A LINE FEED? 
2262 013664 001402 BEQ $TYPE + [BRANCH IF YES 
5563 013666 105227 INCB (PC) “COUNT THE CHARACTER 
2264 013670 000000 S$CHARCNT: WORD 0 + = CHARACTER COUNT STORAGE 
2265 013672 000207 $TYPEX: RTS PC 
44 ~SBTTL APT COMMUNICATIONS ROUTINE 
2269 CF AAEAAAAAAARAEAARARARARAAARERAAREEHRAAARARAAAHORAAAHHAHARRANEHA ED 
2270 013674 112737 000001 014140 S$ATY1: MOVB #1 SFFLG 3zTO REPORT rATAL ERROR 
2271 013702 112737 000001 014136 $ATY3: MOVB 41, SMFLG siT0Q TYPE A MESSAGE 
5572 013710 000403 BR SATYC 
2273 013712 112737 900001 014140 $ATY4: MOVB #1,$FFLG :7:TO ONLY REPORT FATAL ERROR 
597% 013720 SATYC 
2275 013720 010046 MOV RO,-(SP) 7zPUSH RO ON STACK 
2276 013722 010146 MOV R1,~-(SP) : PUSH R1 ON STACK 
2277 013724 105737 014136 TSTB SMF LG ¢ ¢ SHOULD TYPE A MESSAGE? 
5278 013730 001459 BEQts«é*SSSS ‘IF NOT: BR 
5579 013732 122737 000001 001210 (MPR WAPTENV. SENV :ZOPERAT ING UNDER APT? 
5580 013740 001031 BNE $ NOT: 
2281 013742 132737 000100 001/11 BITB #APTSPOOL .SENVM : ; SHOULD SPCOL MESSAGES? 
5582 013750 001425 BEQs«3$ ‘IF NOT: BR 
5583 013752 017600 000005 MOV —a& (SP) RO SI GET MESSAGE ADDR. 
2284 013756 062766 000V02 000004 ADD —-#2,4( SP) ;;BUMP RETURN ADDR. | 
2285 013764 005737 901170 1$: TST $MSGTYPE : SEE IF’ DONE W/ LAST XMISSION2 
5586 013770 001375 BNE ‘i$ “TF NOT: WAIT | 
5587 013772 010037 001204 ¥ RO, SMSGAD :PUT ADDR IN MAILBOX 
2288 013776 105720 23: TSTB (RO) + ::F IND END OF MESSAGE 
3289 014000 001376 BNE 28 
014002 163700 001204 SUB -«- SMSGAD, RO ;:SUB START OF MESSAGE 
5591 014006 006200 ASR RO :IGET MESSAGE LNGTH IN WORDS 
5592 014010 010037 001206 MOV _—«RO, SMSGLGT << PUT LENGTH IN MAILBOX 
2293 014014 012737 000004 0011706 MOV #4, $MSGTYPE TELL APT TO TAKE MSG. 
5594 014022 000413 BR 5$ 
5595 (14024 017637 000004 014056 38: MOVs @4 (SP) 48 ::PUT MSG ADDR IN JSR LINKAGE 


2296 014032 062766 000002 900004 ADD #2,4(SP) “BUMP RETURN ADDRESS 
2297 014060 013746 177776 MOV 177776, =(SP) ;7PUSH 19776 ON STACK 
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CVDRCA.P11 18-OCT-79 12:53 T COMMUNICATIONS ROUTINE 

2298 014044 004737 013412 JSR PC $TYPE :;CALL TYPE MACRO 
2299 dpe 000000 rs WORD 0 
2301 014052 105737 014140 10$: TSTB SFFLG + ¢ SHOULD | REPORT FATAL ERROR? 
2302 014056 001416 BEQ 12$ s71F NOT: BR 
2303 014060 005737 001210 TST SENV : RUNNING UNDER APT? 
2304 014064 001413 BEQ ie$ NOT: BR 
2305 014066 005737 001170 11$: TST oP madi : EF INISHED yt ME SSAGE ? 
2306 014072 001375 BNE 11$ NOT: WAIT 2 
2307 014074 017637 000004 001172 MOV a4(SP), eter :GET ERROR t 
2308 014102 062766 000002 000004 ADD #2,4(SP) ;BUMP RETURN ADDR. 
2309 014110 005237 00117 4 INC SMSGTYPE ee TELl Api TO TAKE ERROR 
2310 014114 105037 014140 128: CLRB SFFLG ;CLEAR FATAL FLAG 
2311 014120 105037 014137 CLRB $LFLG +: CLEAR LOG FLAG 
2312 014124 105037 014136 CLRB SMFLG 32CLEAR MESSAGE FLAG 
2313 014130 012601 MOV (SP)+,R1 :zPOP STACK INTO R1 
2314 014132 912600 : MOV (SP) +,RO ;;POP STACK INTO RO 
2315 014134 9000207 RTS PC 7 RETURN 
2316 014136 000 $MFLG: .BYTE 0 3eMESSG. FLAG 
2317 014137 000 $LFLG: .BYTE 0 32L0G FLAG 
2318 014140 000 $FFLG: .BYTE 0 ZcFATAL FLAG 
2319 14142 * EVEN 
2320 000200 APTSIZE=200 
2321 000001 APTENV=001 
2322 000100 APTSPOOL =100 
2323 000040 APTCSUP=040 
See -SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
2326 LEAR ERE RRR EREREEEEREREERREE ERR EERE ER eS 
2327 r*THIS ROUTINE IS USED TO CHANGE A 16-8!T BINARY NUMBER TO A 6=-DIG!IT 
2328 > *OCTAL (ASCII) NUMBER AND TYPE IT 
Sep hp atage site HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TC TYPE 

> *CALL: 
2331 3* MOV NUM, =(SP) ; NUMBER TO BE TYPED 
2332 s* TYPOS CALL FOR TYPEOUT 
2333 i” -BYTE N zN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
2334 :* ‘BYTE M=1 OR 0 
2335 i” 32 1=TYPE LEADING ZEROS 
3330 7 77 0=SUPPRESS LEADING ZEROS 
2338 i *$TYPON----ENTER HERE TO TYPE GUT WITH THE SAME PARAMETERS AS THE LAST 
2335 i*$TYPOS OR $TYPOC 
2340 2*CALL: 
2341 ;* MOV NUM , = (SF) : NUMBER TO BE TYPED 
3305 Se TYPON 73CALL FOR TYPEOUT 

+* 
234K *$TYPOC==-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
2345 *CALL: 
2346 3° MOV NUM, = (SP) ; ;NUMBER TO BE TYPED 
Sica se TYPOC 77CALL FOR TYPEOQUT 
2349 014742 017646 000000 $TYPOS: MOV a( SP) ,-(SP) 2 ¢PICKUP THE MODE 
2350 014146 116637 000001 014345 MOVB 1(SP) ,SOF ILL LOAD FILL ag Be 
2351 014154 112637 014367 MOVR (SP) +, S$OMODE +1 $5 ER OF DIGITS TO TYPE 
2352 014160 062716 000002 ADD 2. (SP) sADJUST RET URN ADDRESS 

v 





[- 
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000001 
000006 
000005 


014367 
000906 


014366 
014365 
000012 


014366 
177770 


000060 
000040 
014362 
014362 
014364 


000902 000004 





ER1S, POSITI 
MeBEE ORE THE PERST. DIGrT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
BS je WtH “SPACES 


2 
MACY11 30A(1052)_ 18-0CT=79 12:58 PAGE 48 PASE: 


BINARY TO CCTAL (ASCII) AND TYPE 


$TYPOC: MOVB #1,$0F ILL 57SET THE ZERO FIL SWITCH 
MOVB #6, S0M0DE +1 :,SET FOR SIX(6) DIGITS 
$TYPON: MOVB #5, $0CNT 27 SET THE ITERATION COUNT 
MOV R3,-(SP) 7 SAVE R3 
MUV R4,~(SP) 57 SAVE RS 
MOV R5,-(S) ;7 SAVE R5 
+ 9 pga ka 3iGET THE NUMBER OF DIGIIS 'C TYPE 
N 4 
ADD #6,R4 3; SUBTRACT IT FOR MAX. Ac_ OWED 
MOVE R4, SOMODE ;; SAVE IT FOR USE 
MOVB $07 ILL R4 3i7GET THE ZERO FILL SWITCH 
MOV 12(SP),R5 :;PICKUP THE INPUT NUMBER 
CLR R3 3:CLEAR THE OUTPUT WORE 
1$: ROL R5 ROTATE a... INTO ‘'C'' 
BR 3$ ce po M 
23: ROL R5 FORM THis DIGIT 
ROL R5 
ROL y, R5 
MOV R5,R3 
3$: ROL R3 ::GET LSB OF THIS DIG!! 
DECB SOMODE jy 8 yy DIGIT? 
BPL 7$ BR I 
Bic #177770,R3 i206! ‘ADD. OF JUNK 
BNE 4% aeTEot 
TST RS SUPPRESS THIS 0? 
&EQ 5$ ;7BR IF YES 
4$: INC RS ;:DON'T SUPPRESS An YMORE 0°S 
BIS #°O,R3 7iMAKE THIS DIGIT ASCII 
5$: BIS #° RS :zMAKE ASCII IF NOT ALREADY 
MOVS R3,8$ ;; SAVE FOR TYPING 
; TYPE 8% ::GO TYPE THIS DIGIT 
7$: DECB $OCNT ;, COUNT BY 1 
BGT 2s ;;BR IF MORE TO DO 
BLT 6$ :iBR IF DONE 
INC R4 3, INSURE LAST DIGIT ISN'T A BLANK 
BR et 3;GO DO THE LAST DIGIT 
6$: MOV (SP)+,R5 s RESTORE R5 
MOV (SP)+,R4 S RESTORE R4 
MOV (SP) +83 cer ie s R3 
MOV 2(SP) ,4(SP) :SET THE STACK FOR RETURNING. 
MOV (SP) +, (SP) 
RT] ; ;RETURN 
8$: BYTE 0 :: STORAGE FOR aoe bl DIGIT 
BYTE 0 ; TERMINATOR FOR TYPE ROUTINE 
SOCNT: .BYTE 0 ” *SOCTAL DIGIT COUNTER 
SOFILL: .BYTE 0 $3 ZERO FILL SWITCH 
SOMOD OF DIGITS TO TYPE 


E—: .WwORD 0 ; NUMBER 
.SBTTL CONVERT BINARY TO vECIMAL AND TYPE ROUTINE 


PITTI TTT tit tite it iii iii iii i iii iii tii ii 
“THIS ROUTINE TS. Ast CHANGE A 16-BIT BINARY NUMBER 10 A 5-DIGiT - 
£*SIGNED. DECIMALL A TT). NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
— OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 








— —_- + -- - 5 
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CVDRCA DRVi1L DIAG 1S} prt) ~ *MACY)}1 OAC 1082) iBe0c1~ -75 12:58 PAGE 49 PAGE: 0058 | 
CVDRCA.P11 «= 18-001 =79 12:53 “2 = “CONVERT BINARY 1) DECIMAL AND TYPE ROUTINE | 

2410 C2 ¢ PUTS ee Ov NUM,=(SP) = 5; PUT_THE BINARY NUMBER ON THE STACK 

2411 Pao , age ~~~ TYPDS a 2 3:GO0 TO THE ROUTINE 

2412 ; Cer Par Sot 

2413 014370 ; $T-YPDS: ee 

2414 014370 010046 MOV RO =T5P) *. : PUSH RO ON STACK | 

2415 014372 010146 | “MOV 7 R1,4(SB)~ :;PUSK R1 ON STACK | 

2416 014374 010246 MOV 4” R2,=(SP) 3 3PUSH R2 ON STACK 

2417 014376 010346 MOV - *R3,=(SP) ;:PUSH R3 ON STACK 

2418 014400 010546 MOV 25°“ R5E=(5P) ;PUSH_R5 ON STACK 

2419 014402 012746 020200 MoV “=~ -#20200,-(SP) SET BLANK SWITCH AND SIGN 

2420 014406 016605 000020 MOV.:  20(SP),R5 GET THE INPUT NUMBER 

2421 014412 100004 / gBPL- I$ ::BR IF INPUT IS 

2422 014414 005405 S NEG. RS MAKE THE BINARY NUMBER POS 

2623 014416 112766 000055 000001 _ = MOVB  #*=,1(SP) MAKE THE ASCI] NUMBER NEG. 

2424 014424 605000 Sie CLR RO ZERO THE CONSTANTS INDEX 

2425 014426 012703 014604 -7t MOV = #SDBLK,R3 [3SETUP THE OUTPUT POINTER 

2426 014432 112723 000040 27,7 MOVB ow? ,(R3)+ 35EE IME PINS) CHARACTER 10 A Guin 

2427 014436 005002 at. cn. CLEAR THE BCD NUMBER 

2428 014440 016001 014574 “= * MOV  $DTBL(RO),R1 GET THE CONSTANT 

2629 014444 160105 3$: = SUB R1,R5 : FORM THIS BCD DIGIT 

2430 014446 002402 - BLT 48 :3BR IF DONE 

2431 014450 005202 - INC) — R2 Sega THE BCD DIGIT BY 1 

2432 014452 000774 ~ BR 3$ 

2433 014454 060105 48: ADD —s R185 :ADD BACK THE CONSTANT 

2434 014456 005702, TST = Re CHECK IF BCD DIGIT=0 

2435 014460 001002 BNE 5$ SIFALL. THROUGH IF 0 

2436 014462 105716 TSTB (>) :STILL DOING LEADING 0'S? 

2437 014464 100407 BM! 7$ ::BR IF YES 

2438 014466 106316 S$: ASLB (SP) ; MSD? 

2439 014470 103003 aCe OS ;:BR IF NO 

2440 014472 116663 000001 177777 MOVB  1(SP),~1(R3) 3; YES==SET THE SIGN 

2441 014500 052702 000060 68: BIS = #"0,R2 ;:MAKE THE BCD DIGIT ASCII 

2442 014504 052702 000040 7$: BIS = #"_GRe MAKE _IT A SPACE IF NOT ALREADY A DIGIT 

2443 014510 110223 MOVB = R2, (R3) + ::PUT THIS CHARACTER IN THE OUTPUT BUFFER 

2444 014512 005720 TST (RO) + : JUST INCREMENT ING 

2445 014514 020027 000010 CMP = RO, #10  32CHECK THE TABLE INDEX 

2446 014520 002746 BLT 2s ::GO DO THE NEXT DIGIT 

2447 014522 003002 BGT ~—s«BS$ -::G0 TO EXIT 

2448 014524 010502 . MOV — R5,R2 :2GET THE LSD 

2449 014526 000764 BR 6$ £60 (CHANGE TO ASCII 

2450 014530 105726 8$: TSTB (SP) + “riWAS THE LSD THE FIRST NON-ZERO? 

2451 014532 100003 BPL $ _ ¥FBR_IF_NO 

2452 014534 116663 177777 177776 MOVB = =1( SP) ,=2(R3) -; SYES~=SET THE SIGN FOR TYPING 

2453 014542 105013 oS: CLRB = (R3) ::SET THE TERMINATOR 

2454 014544 012605 mov (SP) +,R5 POP STACK INTO R5 

2455 014546 012603 MOV (SP) +,R3 ::POP STACK INTO R3 

2456 014550 012602 MOV (SP)+*,R2 ::POP STACK INTO Re 

2457 014552 012601 MOV (SP)+,R1 :3POR STACK INTO RI 

2458 014554 012600 3 MOV (SP)+,RO | POP STACK INTO RO 

2459 914556 104401 014604 TYPE SDBLK,.« NOW TYPE THE NUMBER 

2460 014562 016666 000002 000006 MOV.) | dete’, STADJUST THE STACK 

2461 014570 012616 a Mov’, 7 / (SP) +, (SP) 

2462 014572 000002 bo ee ;:RETURN TO USER 

C463 014574 023420 Li, SR TBL 27100005, © 

2464 - 01 4576 001750 ‘gre ' Cae, oe ern? 

2465 ~ 014600 000144 3 es ce 
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5: 
macy sone “tagot 1279" 3 ee 


AGE’ 50 
RT "BINARY TO” DECIMAL. “AND. _ PHBE? ROOT INE 


40. ° a ; Ae 1B z 
$DBLK: .BLK 
.SBTTL ERROR tANDLER ROUTINE 


“CK SiR 


* 





eS 3 es 
‘ia, P 








68 Me te Fe 
2469 - 3 See 
2470 ° jiSeAeeennnneneennnnaaneneananeghanghagngianannnanastaneeeegscyee tye et 
2471 ss **THIS ROUTINE WILL INCREMENT THE “ERROR*FAG, AND JHE habe cad CONT hige 
2472 & >*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF - THE. E ROR, gail ‘ 
2473 ;*AND GO TO SWRCK ON ERROR iS 
2474 ° >*THE SWITCH OPTIONS PROVIDED BY THIS. ROUTINE ane? eo has” 
2475  eSutS=1 HALT ON ERROR nee fr tae 
2476 * SW 3=1 INHIBIT ERROR TYPEOUTS a 
2477 4 *SWO9=1 LOOP ON ERROR . tg Ba 88 
2478 ~ 3 *CALL = oe, 
Seen ‘=: 3° ERROR N iZERROR=EMT AND N=ERROR “1TEM NUMBER “. ie 
2481 Or 5140 ‘. $SERROR ows 
2482 714614 a 4407 CKSWR ; TEST FOR CHANGE IN SOF T=SwWR , 
2483 014616 407 CKSWR 3GO LOOK’ "FOR SWR CHANGE : Si 
o4F, gtg6e0 M5 7 =. 001103 7$: INCB SERFLG 33SET THE ERROR FLAG 

> +85 - z. BEQ 7$ ;DON'T LET THE FLAG GO 0. ZERO 
+ 014626: Ban O15z 75 bo F 001102 164 306 MOV $1STNM.aD1SPLAY 2: DISPLAY TEST NG NOPBER, ERROR FLAG: 
52 7* “0146 sae 001112 INC SERTTL C “THE. E aes 
2488 7014 aN pats 001116 MOV (SP) , SERRPC sar ADDRESS OF. “ERROR. INS#RUCTION,: ore 
2489 breast 000062 00171 SUB «#2, SERRPC ; ome 
290” Q1e8 8a. 1¥72737-" 164240 001114 MOVB @SERRPC,$ITEMB. -:-STRIPAND ian ERROR fd si ar 
~72491. 016660; Ose ri 020000 164252 BIT #81713, aSWR ‘Tiseere TeeoU i Fes 
age 0126667 00 BNE 208 :SkIP_TYPEOU ya 
24698 .0146Z0= 001 Oe 014770 JSR PC, SWRCK eo: ET, USER ERROR “ROOT INE - ct 
249420146 — TOkO4. 001165 TYPE - ASCRLF sy eb 
2495 014700 =~ z 208: eee tek Cad 
2496 “Ota ppo-alee 7 50e7,000001 001210 pb TENS Sey, ttesie ‘net MODE f; FP eet he. 
"2497. .0167 Me | atiiske eNO SLIP. APT, ERROR ‘REPORT. 2s 5 ote 
"2498 - O14Z10 3237 S010 14 0147228 “SITE; 218 #3 SET “1 TEM. ER 4AS."ERROR@NUMBE & a? 
22499 *% 014716 -20067373013712 | PC SATIS. £;REPORT FATAL ERROR’TO APi » @ 
2 2500. 014722 = - 000" bf Ae re “20 © ~ oes 
£2901 2014723 ~~ ».000* i — * eee aad) 
7 2502 4a20147 26" 900777" = BR = *.. 228 «2 *™ ; APT ERROR ..COOP mo, F; 
~ 32503. 034726 .-005777 164206 EPS TES: tS @SwR ey ¢7HALT -ON_ ERROR: =. r ° « See 
=2506~. 014732 2 Metis SS BPs. 3° “23 SKIP-- F CONT J NUE.” us ae," 
25 5**016 ° I he HALT en °. GP» »~+HALT tks ln, ese Oat 
£25 pe -0s0ee7 e.g ete, CRU ~ . _« isTes] F “IN SOF4=SWwR -% 
2902. "D14740 :050777 001000 ° 164172, “38: - ~ wBTTO9 as * ON ‘ERROF “SWITCA-SET? ne 
F209: 014750 wit tat ae 001)1 ser RR ASP ' HBR IF NO ig FOR - ORIG ¢. 
“= 2509 = 014 - L ag “LU 
"28320 ‘O16 754 00 005737 00776. FStape tLe EE CHECK FOR: AN ESCAPEADDRESS 2 2, “er 
~<3i¢ Ghé762. Ot Q15716 001162. SE Scare i456). 2 PPOgoeRe Wuan “ADDRESS FOR: £5 (ae - 
“Bis 014766- 000002 RI! ‘: : RETURN 277 ce” 
-2515 : sasnnyansansesnananevayastonentghusvangesssiysGeneigeesnseMAe ee . : 

516 : 60 TYPE -ERROR ste p * on wee” 2 er 

251 UPDATE SOF TWARE SW -1F -"CNTRL/G" Ow SN % 

2218 a Gaacectinecacectsecenetvacepetesbotepsh vaatatayhtisnsdiee! tit 
2519 014770 113737 001102: 001362 SUCK : MOV6 STSTNM,TSTNUM ==: SET ee JEST #:0N ER “a, : 
2520 014776 737. 015006 J8R -- PC, SERRTYP +G@ TYPE FRROR .-- =: - bse 
2521 015002 7° 3GO LOOK FOR SR Toagt sa ‘ 
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CVDRCA.P11 18=0CT=79 12:53 ERROR HANDLER ROUTINE 
2522 015004 000207 RTS PC ;RETURN TO ERROR HANDLER 
$267 .SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
$26¢ « . WITITITITILITILIT LITLE TLET LTT LETT LET EET Te anon 
2526 >*THIS ROUTINE USES THE ‘‘ITEM_CONTROL BYTE'’ ($ITEMB). TO p= ERMINE WHICH 
2527 ‘*ERROR IS TO BE REPORTED.--IT THEN OBTAINS, FROM THE” ERROR TARLE ' ($ERRTB), 
$268 [*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE. ERROR. 
2530 015006 SERRTYP: ‘ 
2534 015006 104401 001165 TYPE »SCRLF- | yr CARRIAGE RETURN'' & ‘LINE PEED’ 
2532. 015012 010046 MOV RO,=(SP) 77 SAVE RO 
2533 015014 005000 CLR RO ’ ¢PIGKUP THE ITEM INDEX 
= 2534 .*015016 153700 _ 001114 BISB av$ 1 TEMB,RO 
-~ 2535 015022 001004 BNE 1$ iil ITEM NUMBER IS ZERO. JUST 
253% ; TYPE THE PC OF THE ERROR 
2537 015024 013746 007716 MOV SERRPC,-(SP) TSAVE SERRPC FOR’ TYPEQUT 
2538 - i : TERROR ADDRESS 
2539 015030 104402 - TYPOC $360 TYPE=-OCTAL ASCII(ALL DIGITS) 
2540. 015032 000426 he 6$_ T OUT 
2541 015034 005300 Z 1$: -DEC _ RO #2ADJUST THE INDEX SO THAT IT WILL 
2542 015036 006300 ASL RO | ; WORK FOR THE ERROR TABLE 
2543 015040 006300 ee” RO™ 
2544 015042 006300 : ASL RO 
2545 --015044 062700 001252 >. & ADD #SERRTB,RO ;;FORM.JABLE POINTER 
2546 015050 014037 015960 hig MOV (RO) +,2$ PICKUP "ERROR FO. SDINTER 
2547 015054 0014 BEQ 3$ SKIP TYPEOUT IF NO 
2548 015056 104201 TYPE i: VRE “THE ‘ERROR 
2549 015060 000000 2$: .WORD 0 : Lp te ‘SSAGE'- e POINTER GOES Bi 
- 2550 015062 . 104401 0601165 : TYPE ,SCRLF i 3 CARR A ERE TUN. VE= FEED 
-2551 015066 072037 015076-- 3$: ~~ MOV (RO) +,4¢ PICKUP ALHEADER"” POINTER -* 
2552 015072 001404: BEQ S$ + SSKIP TYPO rt 0 “— 
- 2553 015074 104403 TYPE 2c TYPE. THE "DATA HEADER’’ +4 
2554- 015076 000000-- 4$: WORD 0 : 32° DATA HEADER'' POINTER GOES HERE - as 
2555 015100 104401. (01165 Pi, TYPE /SCRLFE 73" CARRIAGE RETURN'' &@ ‘LINE FEED" *. 
2556 015104 011000 : 5$: - MOV (RO) ,R0. »:PICKUP ‘DATA TABLE” POINTER . 
2557 015106 001004 . 7 BNE cat 7:GQ TYPE. THE DATA “gti” 
2558 015140 012600 64: MOV.  ($P)+=RO- : SRE RTORG RO Sey, 
2559 015112 104401 * 001165 TYPE-" ,$CRLF< - “CARRIAGE RETURN’' & ‘LINE FEED" on 
2560 015116 000207 PTS aa 7 ;RETURN cae ~~ 
2561 015120 7$* “a. * AR 
2562 015120 013046 MOV - * @(RO)+,+(SP) SAVE a(RO)+ FOR TYPEOUT ¢,.% 
2563 015122 104402. TYPOC . £360. TYPE=-OCTAL ASCII(ALL DIGITSS 
2564 015124 005710 TST (RO) _ 718° THERE ANCTHER NUMBER? 
2565 015126 001770 - - BEQ 6$ Se ::BR iF NC 
2566 015130- 104401 015136 "TYPE ‘33 a. ZI TYPE TWU(2) SPACES a 
2567 015134 000771 BR $- - fil 
2568, 015136 020040 000 8$: ASCIT / AP Meme: +> TWO(2). SPACES 
2569 015142 .EVEN 
620 .SBITL SCOPE HANDLER’ ROUTINE 
2572 LERRAEA AER ERERREREER AERA ARERR REAR AAA A RATATAT RA RARER Ree ee 
2573 3 THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
2574 *AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<?: O>) 
2575 S*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
2576 % :*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
2577 + *SW14=1 LOOP ON TES 
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104407 
032777 
001114 
000416 


013746 


040000 


000004 


000400 
163712 
001103 
001115 
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163766 


000004 


163720 
001102 


001103 


163662 
007106 


163630 


30A(1052) 18-OCT-79 _ 
SCOPE HANDLER ROUTINE 
*SW11=1 
*SWO9= 1 LOUP ON E?ROR 
*SwO8=1 LOOP ON TEST IN SWR<7:0> 
S*CALL 
;* SCOPE ::SCOPE=I10T 
$SSCOPE: 
CkS 
1$: BIT #B1T14,aSwR 
BNE SOVER 
:#AAAASTART OF CODE FOR THE XOR 
$XTSTR: BR 6$ 
MOV @FERRVEC = (SP) 
MOV #5$, A#ERRVEC 
TST av1?7060 
MOV (SP) +, AERRVEC 
BR $SVLAD 
c$: CMP (SP) +, (SP)+ 
MOV (SP) +, AERRVEC 
BR $ 
6%: :#H#MAHEND OF 
BIT #B1TO 
BEQ 2$ 
CMPB ss @SWR, STSTNM 
BEQ $OVER 
2s: TSTB  $ERFLG 
BEQ 3$ 
CMPB  ~—s- SERMAX,, SERFLG 
BHI $ 
BIT #BITO9, aSwR 
BEQ 4$ 
7$ MOV $LPERR, $LPADR 
BR SOVER 
4$: CLRB = $ERFLG 
CLR STIMES 
BR 1$ 
3g BIT #B1T11,aSwR 
BNE 1$ 
TST $PASS 
BEQ 1$ 
INC $ICNT 
CMP STIMES,SICNT 
BGE $ov ER 
1$: MOV $ICNT 
MOV Saicur STIMES 
$SVLAD: INCB  $TSTNM 
MOVB STSINM. STESTN 
MOV (SP), $LPADR 
MOV (SP): $LPERR 
CLR $ESCAPE 
MOVB #1, $ERMAX 
$OVER: MOV $TSTNM, aDISPLAY 
MOV $LPADR. (SP) 
RT] 
SMXCNT: 50, 


IN+IBIT — - 


7 
CODE SOB as ny xoR" TESTERAMMAH 
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TEST Fu. CHANGE IN thi SWR 
: LOOP ON PRESENT TEST? 
sYES IF Swi4=1 
TESTERMMHAA 
sel RUNNING ON THE mf ay ce CHANGE 
sTHIS INSTRUCTION T NOP=240) 
SISAVE THE CONTENTS OF STHE ERROR VECTOR 
2 éSET FOR TIMEOUT 
TIME OUT ON XOR? 
: :RESTORE THE ERROR ails 
:GO TO THE NEXT TEST 
Stet THE STACK AFTER A TIME OUT 
;RESTORE THE ERROR VECTOR 
OGP ON THE PRESENT TEST 


: 4 ti SPEC. TEST? 


:0N If + al TEST? SWR<7:0> é 
Y 
AN ERRCR OCCURRED? 


F NO 
« FRRORS FOR THIS TEST OCCURRED? 


oR I 
;;SET LOOP ADDRESS TO LAST SCOPE 


::ZERO = ERROR FLAG 

;;CLEAR THE NUMBER OF ITERATIONS TO MAKE 
;sESCAPE TO THE NEXT TEST 

pt raat 


;BR IF 
iilF FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
SZ INCREMENT ITERATION COUNT 
pag THE NUMBER OF ITERATIONS MADE 
:BR IF MORE ITERATION REQUIRED 
::REINITIALIZE THE ITERATION COUNTER 
NUMBER OF ITERATIONS TO DO 
i COUNT TEST NUMBERS 
:-SET TEST NUMBER IN APT MAILBOX 
; ADDRESS 


DRESS 
ssSUSan THE ESCAPE FROM ERROR ADDRESS 
Y ALLOW ONE(1) ERROR ON NEXT TEST 
i DISPLAY TEST NUMBER 
ie FUDGE RET''RN ADDRESS 
FIXES PS 
7ZMAX, NUMBER OF ITERATIONS 
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000176 
163506 
163502 
177600 
000007 
001134 
916147 
016154 
000176 
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30A(1052) 18-0CT-79 PAGE : 
TTY INPUT ROUTINE 
.SBTTL TTY INPUT ROUTINE 
SL REAR ARRARARENKEARRERRARERERRARRR ERR R RARER EERE RARER ARE 
“ENABL LSB 
VERB BRERBSBAASZAALALASLASLLASAASRSLSA ESSE ESE ES ERASER ER ERR RRR RRR SRS RRR RSE SS 
**SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
S*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WI!L 
S*SERVICE THE TEST FOR CHANGE IN SOFTWARE SW!TCH REGISTER TRAP CALL 
‘WHEN OPERATING IN TTY FLAG MODE. 
$CKSWR: CMP #SWREG, wR i318 THE SOFT=SWR SELECTED? 
E ::BRANCH IF NO 
TSTB Seas i: CHAR THERE? 
BPL 15$ +:IF NO, DON'T WAIT AROUND 
MOVB  a$TKB,-(SP) ‘SAVE THE CHAR 
BIC #°C177, (SP) *:STRIP=OFF THE ASCII 
CMP #7, (SP)+ -:1S IT A CONTROL G? 
BNE 15$ +:NO, RETURN TO USER 
CMPB = $AUT08,, #1 + SARE WE RUNNING IN AUTO=MODE? 
BEQ 15$ ;7BRANCH IF YES 
TYPE. ,$CNTLG Z:ECHO THE CONTROL-G (*G) 
$GTSWR: TYPE “ SMSWR +: TYPE CURRENT CONTENTS 
MOV SWREG,-(SP) ::SAVE SWREG FOR TYPEOUT 
TYPOC ':GO TYPE=-OCTAL ASCII(ALL DIGITS) 
TYPE  SMNEW ::PROMPT FOR NEW SWR 
19$: CLR =(SP) i: CLEAR COUNTER 
CLR -(SP) THE NEW SWR 
7$: TSTB = @STKS ‘CHAR THERE? 
BPL 7$ TIF NOT TRY AGAIN 
MOVB  a$TKB,-(SP) ::PICK UP CHAR 
BIC #°C177, (SP) *:MAKE IT 7=BIT ASCII 
9$: CMP (SP) 425 zz1S IT A CONTROL-U? 
BNE 10$ : BRANCH IF NOT 
TYPE /SCNTLU ?:YES, ECHO CONTROL-U (*U) 
208: ADD 6,SP :S 1GNORE PREVIOUS INPUT 
BR $ ‘LET'S TRY IT AGAIN 
10$: CMP (SP) #1 :IS IT A <CR>? 
BNF 16$ : BRANCH IF NO 
TST 4(SP) t:YES,,IS IT THE FIRST CHAR? 
BEQ 11$ IBRANCH IF YES 
MOV 2(SP) ,aSwR +: SAVE NEW SWR 
11$: ADD #6,SP ::CLEAR UP STACK 
143: TYPE g$CRLF : ECHO <CR> AND <L 
CMPB  ~—s- S$ INTAG,, #1 RE-ENABLE TTY KBD INTERRUPTS? 
BNE 15$ + BRANCH IF NOT 
MOV #100, a$TKS ? RE-ENABLE TTY KBD INTERRUPTS 
15$: RTI ce ETURN 
168. JSR PC, $TYPEC SECHO CHAR 
CMP (SP) #6 *:CHAR < 0? 
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18-0CT=79 
INPUT ROUTINE 
BLT 18$ ;;BRANCH IF YES 
CMP (SP) ,467 7s CHAR > > 03 
BGT 18$ et IF YES 
BIC #60, (SP)+ sSTRIP=OFF ASCII 
TST 2 (SP) 71S THIS THE FIRST CHAR 
BEQ 17$ “BRANCH IF YES 
ASL (SP) 2 éNO, a i PRESENT 
ASL (SP?) 3; CHAR OVER TO MAKE 
ASL (SP) : OOM FOR NEW ONE 
17$: INC 2(SP) KEEP COUNT OF CHAR 
BiS -2(SP), (SP) TISET IN NEW CHAR 
7$ :sGET THE NEXT ONE 


BR 
18$: TYPE 

BR 
-DSABL LSB 


-$QUES 
20$ 7: SIMULATE CONTROL=U 


SPAR EAR AERA EEK AREKK AO ITO Ta TOT tn tek 


““THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


e*CALL: 
s* RDCHR * 3. INPUT A SINGLE CHARACTER FROM THE TTY 
i* RETURN HERE :: CHARACTER IS ON THE STACK 
:* izWITH PARITY BIT STRIPPED OFF 
$RDCHR: MOV (SP) ,=(SP) ;¢PUSH DOWN THE PC 
MOV 4(SP5 ,2(SP) 3zSAVE THE PS 
i$: TSTB @a$TKS 44 gl FOR 
BPL i$ 3A_CHARACTER 
MOVB a$TKB. 4(SP) 7eREAD THE TTY 


BIC #*C<177> ,4(SP) 


[GET RID OF JUNK IF ANY 
CMP 4 (SP) 423 


SITS IT A_CONTROL-S? 


BNE 3$ 7 BRANCH IF NO 

2$: TSTB = a$TKS s:WAIT FOR A CHARACTER 
BPL 2$ ::LOOP UNTIL ITS THERE 
MOVB a$TKB,-(SP) ::GET CHARACTER 
BIC #°C177, (SP) ::MAKE IT 7-BIT ASCII 


CMP (SP)+,421 7218S IT_A CONTROL-Q? 


BNE 2s 321F WOT DISCARD IT 
BR 1$ TES RESUME 
3% CMP 4(SP) ,4140 S {T UPPER CASE? 
BLT . 7 ;BRANCH IF YES 
CMP 4 (SP) 4175 HIS . owe CHAR? 


4 YES 
#40,4(5P) :7MAKE IT UPPER CASE 


4$: ::;GO BACK TO USER 


FF ERAT ERE REE EERE EERE AREER EERE KERR 


or. ROUTINE WILL INPUT A STRING FROM THE TTY 
ALL: 


ce RDLIN 
:* RETURN HERE 


; INPUT A STRING FROM THE T 
i TERMINATOR WILL BE A BYTE GF ALi O'S 
R3,~(SP) 


SRDLIN: MOV SAVE R3 
1$: M$STTYIN,R3 ::GET ADDRESS 
cs: #$TTYINe8. RS 7 BUFFER FULL? 


PAGE : 


: TADDRESS OF FIRST CHARACTER “ute BE ON THE STACK 


0063 
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016165 
016172 


016176 
0 


016246 


016250 


18-OCT-79 


101405 


005015 
020075 


040 
036440 


012737 
012737 
0046 


01 
012603 


12:53 


000177 
001164 
016130 


177777 
001166 


000004 
016132 


005015 
006507 


047040 
000040 


016342 
000340 


162706 
016546 
016250 


016342 
016346 
016346 
016346 


162640 


MACY11 30A(1052) 


000002 
000004 


000 
000012 
020122 


053505 


000024 
000026 


000024 


000024 


18-0CT=79 


TTY INPUT ROUTINE 


M 
10$: CMPB 
4$: TYPE 
3$: MOVB 


9$: BYTE 


.BY 
$TTYIN: .BLKB 
$CNTLU: .ASCIZ 
SCNTLG: .ASCIZ 
$MSWR: .ASCIZ 


SMNEW: .ASCIZ 


M 5 
12:58 PAGE 55 


PAGE: 0064 

4$ ; BR IF YES 

3:60 yi A ONE CHARACTER FROM THE TTY 
(SP)+,(R3) : GET CHARACTER 
#177, (R3) 3318S IT A RUBOUT 
3$ :iSKIP IF NOT 
,SQUES ssTYPE A °?° 

;;CLEAR THE BUFFER AND LOOP 
(R3) ,9$ 7zECHO THE CHARACTER 
#15,(R3)+ 3iCHECK FOR RETURN 
2$ ;;LOOP IF NOT RE 
=-1(R3) Ssetle RETURN (THE 15) 
oF si TYPE A LINE FE 
(SP) +,R3 ; RESTORE R3 
(SP) ,-(SP) ;z;ADJUST THE STACK AND PUT ADDRESS OF THE 
4(SP) ,2(SP) as FIRST ASCII CHARACTER ON IT 
M$TTYIN,4(SP) actu 
£7 STORAGE ty ASCII CHAR. TO TYPE 
8. + :RESERVE 8 BYTES FOR TTY INPUT 
/*U/<15><12> : CONTROL ‘U"’ 
/*G/<15><12> : CONTROL ‘'G’' 
<15><12>/SWR = 
/ NEW = / 


-SBTTL POWER DOWN AND UP ROUTINES 


FLARE AKER EERE KERR EERE REE REE KEEERE REE 


sPOWER DOWN ROUTINE 


SPWRDN: MOV 


ASILLUP , @#PWRVEC 2eSET 
#340, {AAPURVEC 2 ; 


3s 
#SPWRUP , AAPWRVEC’ ;; SET 


o72 


Bi FAST UP 
RO ON STACK 


a ON STACK 
UP VECTOR 
: HANG UP 


SLR REE REE EERE EERE EERE ERE EERE REE ERD RH 


POWER UP ROUTINE 
$ #SILLUP, a#PWRVEC it FAST DOWN 


PWRUP: MOV 


1$: INC 


SSAVR6, SP 
SSAVR6 
SSAVK6 

1$ 
(SP) +, 9SWR 
(SP)+,R5 
(SP) +,R4 
(SP) +,R3 


eeeerT LOOP FOR THE TTY 
;:WAIT FOR THE INC 


:OF WORD 
[:POP STACK INTO aSwR 
2;POP STACK INTO R5 
3:POP STACK INTO R4 
:;POP STACK INTO R3 


CVDRCA DRV11J DIAS TST 
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NOLO — 
SONNMANS 
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016176 
000340 


042522 


043040 


000002 


016436 


000004 


MACY11 


000024 
000026 


052123 
020104 
050040 
044501 


000002 
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POWER DOWN AND UP ROUT! 


MOV (SP)+,R2 3zPOP STACK INTO R2 
MOV (SP)+,R1 : ¢POP STACK INTO R1 
MOV (SP) +,RO POP STACK INTO RO 
MOV #SPWRON, @APWRVEC ;SET UP THE POWER DOWN VECTOR 
MOV #340, aMPWRVEC+2 ;:PRIO:7 
TYPE + ¢REPORT THE POWER FAILURE 
SPWRMG: .WORD PWRMSG POWER FAIL MESSAGE POINTER 
MOV (PC) +, (SP) T:RESTART AT START1 
SPWRAD : we START 1 7 ZRESTART ADDRESS 
$ILLUP: HALT + 3 THE POWER UP SEQUENCE WAS STARTED 
BR oe 3; BEFORE THE POWER DOWN WAS COMPLETE 
$SAVR6: 0 ;PUT THE SP HERE 


PWRMSG: .ASCIZ <15><12>/RESTARTED FROM PWR FAIL/ 


- EVEN 
.SBTTL TRAP DECODER 


CI IR RII IOIIIOIOIOIIISICICIOIIOISIOIIOIOIOIOIOIIUIOIOIOIOIOIOIOIOISITISIOIOIOIOIOIOIOI TOTTI I TI TOT TE 
SSTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP*’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
7*GO TO THAT ROUTINE. 


$TRAP: MOV RO,-(SP) 72SAVE RO 
MOV (SP), RO at TRAP ADDRESS 
TST -(RO) ; ;BACKUP BY 2 
MOVB (RO) ,RO :GET RIGHT BYTE OF TRAP 
ASL RO >:POSITION FOR INDEXING 
MOV $TRPAD (RO) ,RO 2 FINDER TO TABLE 
RTS RO ;GO TO ROUTINE 


3zTHIS IS USE TO HANDLE THE ‘'GETPRI'' MACRO 


$TRAP2: MOV (SP) ,~(SP) 7zMOVE THE PC DOWN 
MOV 4(SP),2(SP) 7:MOVE THE PSW DOWN 
RTI ;sRESTORE THE PSW 


-SBTTL TRAP TABLE 


7*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE ‘‘TRAP’' INSTRUCTION. 


; ROUT INE 

$TRPAD: .WORD $TRAP2 
$TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEQUT ROUTINE 
$TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
$TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
$TYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
$TYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SiGN) 
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2858 015472 $GTSWR ;;CALL=GTSWR TRAP+6(104406) GET SOFT=SWR SETTING 


015422 $SCKSWR ;;CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOF T=SwWR 
2861 016456 015704 $RDCHR = ;;CALL=RDCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUT INE 
016460 016024 SRDLIN ;;CALL=RDLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 


-SBTTL ASCII MESSAGES 

2865 016462 005015 053103 051104 TITLED: .ASCIZ <15><12>/CVDRCA DRV11J DIAG TEST PART 1 /<15><12> 

2866 016470 040503 020040 051104 
045061 042040 

2868 0511 042524 

2869 016512 052123 050040 051101 

2870 016520 Reeies 020061 006440 


2872 016530 005015 051104 030526 TLCABL: .ASCIZ <15><12>/DRV11JU CABLE REQ'D/<15><12> 
































2875 016552 042047 005015 000 
2877 016557 122 043505 052040 EM1: eASCIZ /REG TIMEOUT ER/ 


000122 
2880 016576 042522 020107 042522 EM2: -ASCIZ ‘REG READ/WRITE ER" 
016604 053457 


sas 016620 051111 030122 003599 EMS: eASCIZ /IRR REG ER/ 
att 016633 101 051103 051040 EM4: -ASCIZ /ACR REG ER/ 
Sea 016646 04651: 020122 042522 EMS: -ASCIZ /IMR REG ER/ 
2889 016661 111 051123 051020 EM6: eASCIZ /ISR REG ER/ 


16666 
2891 016674 044103 050111 051440 EM?: eASCIZ /CHIP STAT ER/ 
2892 016702 soe: 020124 051105 


2894 016711 105 Oat ies 041520 DH: *ASCIZ /ERRPC TSTNUM BUSADR EXPCT RCVD/ 


2899 016746 020040 051040 053103 


2900 000104 
2901 016756 051105 050122 020102 Dk2: eASCIZ /ERRPC TSTNUM BUSADR ADRS EXPCT  RCVD/ 
2902 016764 020040 Rennes 047124 





EVEN 
SERRPC ,TSTNUM, S8DADR,, $GDDAT , $BDDAT ,0 
6 001122 DT2: SERRPC , TSTNUM, SBDADR,, $GDADR , $GDDAT , SBDDAT , 0 






017050 


. © 
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2914 017056 001120 001124 001126 
34 017064 000000 


2917 000001 «END 


CVDRCA DRV11J DIAG TST PRT} 


CVDRCA.P11 
164160 


BEGPAT 013110 
BGCHP2 013152 


18-00 T=79 12:53 


269 
312 


284 


a , 
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CROSS REFERENCE TABLE == USER SYMBOLS 


310 377 378 379 380 381 


311 


2321# = =—2496 


932 987 10464 





1275 1303 1731 1854 1910 
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CVDRCA.P11 18-00 T=79 12:53 CROSS REFERENCE TABLE == USER SYMBOLS 

BGCHP3 013212 1409 1521 21198 

BGCHP4 013254 1377 1489 1583 21368 

BGPAT? 013172 1670 20864 

BITG = 000001 1204 519 541 555 580 695 624 639 661 677 696 712 734 
757 780 803 841 879 883 911 937 941 966 992 996 1024 
1049 1053 1078 1671 1732 1733 1796 1797 1855 1856 1915 1916 1952 


1953 1978 1979 2073 


BITOO = 000001 110# 120 

BITO1 = Q00002 1094 119 

BITO2 = 000004 1084 118 

BITO3 = 000010 1074 117 

BIT04 = 000020 1064 116 

BITOS = 0 1054 115 

BIT06 = 000100 1044 114 

BITO7 = 000200 1034 113 

BITO8 = 000400 1024 112 2600 

BITO9 = 001000 1014 111 2507 2608 

BIT] = 2 1198 580 

BIT10 = 002000 100# 

BIT11 = 000 99% 2615 

BIT12 = 010000 98a 

BIT13 = 020000 974 § 2491 

BIT14 = 040000 2586 

BIT15 = 100000 95a 137 

BIT2 = 000004 1184 

BITS = 000010 1178 

BITS = 000020 1164 

BITS = 000040 115@ 

BIT6é = 000100 114@ 518 533 540 557 564 587 646 886 1006 

BIT7 = 000200 1134 518 526 533 540 557 564 587 638 646 653 660 824 
855 886 893 999 1006 

BIT8 = 00 112# 138 

BITS = 001000 11a 139 557 

BPTVEC= 000014 1274 

CHPISR= 000140 1554 

CIMR = 000040 145@ 1333 1355 1413 1625 

CIRMR = 000020 1424 1556 1674 1740 1741 1803 1804 1862 1863 1920 1921 

CIRK = 000100 150# 1467 1525 

CISR_ = 000160 156 

CKSWR = 106407 2482 2483 2506 2521 2585 28604 ‘ 

CLRCSR 015002 552 576 600 634 672 "06 728 751 774 797 835 873 931 
986 1043 1097 1130 1177 1223 1270 1298 1326 1348 1371 1403 14% 
1458 1482 1514 1546 1576 1614 1651 1663 1725 1786 1837 1848 1909 
1949 1975 20554 

CLRIRR 013052 1101 1134 1227 1438 1462 1487 1519 1550 1581 1620 1656 20708 

CR = 000015 35@ 2257 = 2267 

CRLF = 000200 364 2228 2267 

CSIMR_ = 000050 1464 1379 

CSIRMR= 000030 1434 1584 

CSIRR = 000110 151#@ 1491 az 

CSISR = 000170 1574 

= 177570 40@ = 251 425 





CVDRCA DRV11J DIAG TST PRT1 
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CVDRCA.P11 
DISPRE 000174 
DMAP 001 364 
DRCSA 0013462 
DRCSB 001346 
DRCSC 001352 
DRCSD 001356 
DRDOBA 001 344 
DRDBS 901350 
DRDBC 001354 
DRDBD 136 
DSwWR 177570 
DT1 017034 
oT2 017050 
EDCHP1 013132 
EDCHP2 013170 
EDCHP3 013232 
EDCHP4 013274 
EMTVEC= 000030 
—EM1 016557 
EM2 016576 
EM3 016620 
EMG 016633 
EMS 016646 
EM6 016661 
EM7 016674 
ENDDAT 013410 
ENDPAT 013316 
ERRVEC= 000004 
GNS = weeene 
GTSWR = 104406 
HT = 000011 
IE = 001000 
IMRLOC 001372 
INTFLG 1366 
iOTVEC 

IRRLOC 001376 
ISRLOC 001374 
if = 000012 
L = 000200 
LMD57 = 000240 
MACR = 000254 
MIMR = 000244 
MIRR = 000250 
MISR = 000240 
NEXPAS 002032 


—d ad ~~ 
ss 


— FHP NNO YNN NW 
COW - COWOW 


NWOAOWNOA VI EE 


—-2 


47i* 


477 


978 


506* 


2856 


1248 
1236 


1254 
1866 
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370 


1036 


2591 
2856 


PAGE : 
709 876 9%6 9 1099 
1406 1436 1460 1485 1517 
1950 2000 2056 2077 
1132 1179 1225 1274 1302 
1549 1580 1455 1665 1841 
1122 1169 1215 1261 1290 
1538 1568 1606 1652 1669* 
1170 1216 1262 1291 1319 
1569 1607 1653 171 1839 


1286 1314. 1778 1900 1940 


2594" 597s 
286) 362 


1354 1378 1410 1561 1594 
1490 1§22 1553 1586 1644 
1951 
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CVDRCA.P11 18=0CT=+79 12:53 CROSS REFERENCE TABLE == USER SYMBOLS 
NEXPA1 002036 4784 48) 
NXDEV 012620 20008 
NXDEV1 012624 476 20014 2007 } 
PACR = 000300 1694 1138 1278 1622 
PATDAT 013320 21568 
PIMR = 000260 1708 1184 1306 
PIRQ = 177772 404 
PIRQVE= 000240 1348 
PRO = 0 57a 
PR} = 000040 58a 
PR2 = 000100 Soa 
PR3 = 000140 604 
PRG = 000200 61a 
PRS == 000240 624 
PR6 = 000300 634 
PR7 = 000340 644 485* 
PS = 177776 378 38 
PSw = 177776 384 
PVMA = 000340 1718 
PWRMSG 016350 2808 28154 
PWRVEC= 000024 1294 413« 414% 2777" 27782 2787" 27938 2805" 28068 
RDCHR = 104410 2747 28614 
RDLIN = 104411 28624 ; 
RDY = 100000 ater 518 533 587 604 617 638 653 676 689 886 944 399 
RESVEC= 000010 1244 ™ 
IMR = 0 0 147#@ 1356 1381 1555 1588 
SIRR = 000120 152@ 1442 1466 1493 1554 1587 1624 
SSIMR = 000070 1484 1411 1675 
SSIRR = 000130 1534 861523 1676 
STACK = 001100 284 482 
START 001402 183 3984 
START1 001766 467 4694 2042 2810 
STKLMT= 177774 390" | 
SwWR 001140 250 403 424* 426 432* 439* 2691 2503 2507 2586 2600 2602 2608 
2615 2644 2681" 2785 2798 
SWRCK 014770 2493 25198 
SWREG 000176 1814 432 2644 2657 
SwO = 000001 92a 
SwOO = 000001 824 92 
SwO1 = 000002 814 91 
SWO2 = 000004 80" 
SwO3 = 000010 79 89 
SWwO4 = 000020 784 88 
SwOS = 000040 77# 87 
SwWO6 = 000100 764 86 
SwO7 = 000200 754 85 
SwWO8 = 000400 74a 84 
SwO9 = 001000 734 83 
Sw = 000002 ola 
SwW10 = 002000 72a 
SW11 = 604000 71a . 
SwWi2 = 010000 70m 
Sw13 = 020000 698 
Sw14 = 040000 
SwW15 = 100000 678 
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= 908 

= 000010 898 

= 000020 88a 

= 000040 87H 

= 000100 864 

= 000200 854 

= 000400 84 

= 001000 834 
TBITVE= 000014 1254 
TITLED 016462 462 28654 
TKVEC = 1324 
TECABL 016530 463 2872m 
TPVEC = 1338 
TRAPVE= 000034 1318 = 411" 412 ° 
TRIVEC= 000014 1264 
TSTNUM 001362 389" 2519* 2917 2913 
TST =—--:902074 452m 
TSTIO 3260 699 7054 
TST11 003354 7278 
TSTI2 003450 7508 
TST13. © 003544 7734 
TSF14 003640 796# 
TST15 004010 828 8344 
TSTI6. 004156 865 872# 
TST17 004456 930" | 
tST2.. 002152 51M 
TST20°- 004744 85a. 
TST21> 005244 10620" 
TST22* . 005532 10964 
TSt23— 005666 112%. 1129¢ 
$724 00607 » 1168 + 1176" 
TS25:%- 006302 . 1274 1222H 
ST26z * 006506 -:= "1260. 12698 
eV 2¢,00G60g" 72 #8, T289%". 12978 
BESTS 002366" 0 | 54ST 55TH 
S130°?-006742 4, 4 U3T7(1325e 
TST3T Oe neee ay 1339, 2 -1367m 
BST32,. 002134 2 8% o-  1362°.. “21,3708 

“»007262> 4. -, 1393. T402# 

36. 007410 ya Fee 14255 143 3e 7 
Ry TO ree 16GB 15 Fas 

TSE37e% 007764 





On <. 
© 007612) 47%. 14755, 2184: 
OT tae ae 
1STes "QORGS4 =" - 5 9.48 5250 os 
* 2010076, 2. ot 215306 156 5m ee 
AK, 2 OV022F oe AN 5OR + TSS he 
Seg 010326” 4605-) 16m | 
43,401 Pw 1 1650” 416608 
TST4g) 701+ , 1715. 1226, 
1ST6S “ O40G".-*., 178503" "oF 
ere, olz) a Bopwee 
Pong 5 P 0 hae 
15,20 002552“ ASG 599m 7 
30-01 };! Te, eee 
Be Peb 072502" Os MN. | AA OE 1 
SOO EeOE, es tS ee S| 
pe le em 
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PAGE : 





0072 
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CVDRCA 


~ 
. 
= 


70 
CRSWR 015422, 


1300~ 


88882sssss 
SR=235 


2029 


& ty 
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2655 - SB - 
2658" Ss 


460° 3” 


2494 


» 8 


3831 
659 


2575 


416 


7531 


2496 


2606 


2537 


2628" 


a ie | 


R659 


2683 


2550 


2612 


2911 


~ 


2555 


2634 


2973 


610" . 


1822* 


2559 


616* 


-1829* 


2683 - 


637* 
823% 


963* - 


1135* 
1551s 
1865* 


2767 


2553 
2807 


-645* 
842* 
971* 

- 1181* 

1582* 

872s 


PAGE: 0073 
» 
2555 
y 8 
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CVDRCA.P11 —-18=O0CT=79 12:53 CROSS REFERENCE. TABLE == USER SYMBOLS 
001172 272# = 4G1* 23078 
014140 2270 2273" 2301 «= 2310" = 23184 
001156 2584 2236 2267 
001155 257# ©2267 
001120 2418 2913 
001124 243H 86 493x518* = 522 526" 529 533¢ 537 540" 544 957" 56 564% 


890 0 9 
946 G.o* 952 956* 958 961* 964 968 972s 974 999* 1003 1006* 


1010 1C i4* 1016 1019* 1022 1026 1030* 1032 1056* 1058 1061* 1064 1068* 
1070 1073* 1076 1080 1084* 1086 1103* 1106 1109* 1112 
1141 1145* 1147 1151* 1153 1158 1164 1182* 1185 1187 1191* 1193 1198 
1203 1208* 1210 1229* 1233 1237* 1239 1243* 1245 1250 1256 1279* 1282 
1307* 1310 1331* 1335 1353* 1358 1380* 1384 1412* 1416 1440* 1444 1464* 
1469 1492* 1496 1524* 1528 1552 1558 1563 1585* 1591 1596 1627* 1629 
1633* 1635 1639* 1641 1646 1678* 1681 1684* 1686* 1689 1694* 1697 1701* 
1704 1745* 1747 1752* 1753* 1754* 1756 1760* 1762 1766* 1768 dL 1774 
1806* 1810 1816 1824* 1826 1832 1867* 1869 “274 1875* 1876* 1878 1882* 
1884 1888* 1890 1894* 1896 1925* 1927 1932s 1933* 1934* 1936 1955* 1959 
1962* 1965 19§1* 1985 1989* 1991 2060* 2911 2913 
ET42 012736 20334 
015472 - 26564 2858 
= 000003 11 12 
1000 2174 
001104 2344 2619 620 2622* 2633 
016342 2777 2793 28124 
001135 2488 2684 2773 
001114 2384 8 2690* 2498 2515 2534 
001166 2644 2267 2515 2758 2767 
014137 2311* 23178 
001106 2354 418% 2610* 2626* 2631 2633 ; 
001110 2364 419* 708* 730* 753* 776* 875* 933s 988* 1045* 1272* 1300* 1373* 
, 1405* 1484* 1516* 1578 1730* 1853* 1911" 2509 2610 2627" 2633 
001222 2974 
001226 3014 
001232 : 3044 
001236 3074 
001170 218 222 2704 436. 2211 2496 2625 
1 001220 2914 
007224 2994 t 
071230 3024 
1234 3054 
001002 2184 
014136 2271* 2277 23126 23164 
016165 2659 27714 
001204 277# =—2287% 2290 
001206 2784 2292* 


7 
Bo Se 2714 442* 2285 2293" 2305 2309s 
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CVDRCA.P71 18-0CT=79 12:53 CROSS REFERENCE TABLE == USER SYMBOLS 

SMXCNT 015420 2623 26334 

SNULL_ 001154 2564 2238 2267 

$NWTST= 000001 4894 5084 5484 5728 5964 6304 6684 7024 7244 747# 7704 7934 8314 


8694 9278 9824 10394 10934 1126 11734 1219 1266 12944 1322 13444 1367# 
1399 14308 14548 14784 1510 1542 15724 16104 1659 17214 17824 18444 19054 


19444 19704 
SOCNT 014364 2356* 2385* £3984 
SOMODE 014366 2351* 2355* 2360 2363* 2374% 24004 
SOVER 015404 2587 2603 2611 2621 26304 
SPASS 001176 2748 436* 2021* 2022* 2030 2043 2617 2634 
SPASTM 001006 2204 
016336 28104 
SPWRON 016176 4 277784 2805 
SPWRMG 016332 28084 
SPWRUP 016250 2787 27934 ‘ 
SQUES 001164 2624 2267 2515 2702 2751 2767 
SRDCHR 015704 27154 2861 
SRDDEC= xexeee 2863 
SRDLIN 016024 27434 2862 
SRDOCT= *exxeee 2863 
$RDSZ = 000010 27364 
T 012760 20424 
SR2A = weeeee 2863 
SSAVRE= *x#exee U 2863 
SSAVR6 016246 2786* 2794 2795* 2796* 28144 
SSCOPE 015142 407 25844 
SSETUP= 000117 3974 406 407 409 411 413 415 416 418 2019 2482 2506 2514 
2585 2639 2773 
$SSTUP = 177777 3974 
SSVLAD 015350 2595 26244 
$SSVPC = 900106 1914 196 
$SWR = 165400 11 124 134 19 20 21 23 24 260 261 262 415 
416 418 419 493 512 552 576 600 634 672 706 728 751 
774 797 835 873 931 986 104 109 1130 1177 1223 1270 1738 
1326 1348 1371 1403 1434 1458 1482 1514 1546 1576 1614 1663 1725 
86 1848 1909 1948 1974 2014 2020 2035 2041 2043 2474 2475 +76 


$s = 24 2580 2581 2602 

STESTN 001174 2738 443* 2625* 

STIMES 001160 2604 415* 1948* 1974* 2020* 2613* 2620 2623* 2633 

$TKB 001146 2534 2637 2648 2665 2719 2725 

$TKS 001144 2524 2637 2646 2662 2686* 2717 2723 

SIN = 2 114 144 489 4934 08 512m 4 5 Slc# 569 572 5 76a ©92 
5 627 630 6344 66 668 672a 699 702 7064 724 ( 284 
747 7514 770 7744 793 7974 828 831 8354 865 69 8734 97 
9314 864 1039 10434 1093 10974 1121 1126 11304 1168 1173 1: 7@ 
1214 1219 12234 1260 1266 12704 1289 1294 12984 1317 1322 13264 8 1.°9 

134 2 1367 13714 1393 1399 140 1425 1430 14344 1448 1454 

14584 1473 1478 14824 1505 1510 1514 1537 1542 1546@ 1567 15, 1576# 
1605 1610 16144 3 1659 16634 1715 1721 17254 1782 17864 1836 1844 
18484 1905 19094 1944 19484 966 1970 19744 

$1PB 001152 2554 2256* 2267 

$TPFLG 001157 259M = 2205 2267 

$TPS 001150 2544 2254 2267 
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016402 
016424 
0000 


xetneee 


001000 


we 
{ 
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28554 


2515 
27664 


2852 
22544 


2005* 


23994 





1974 
23194 


CVDRCA DRV11J DIAG TST PRT} 


CVDRCA.P11 

COMME N a 
ENDCOM Li 
ERROR 298 
651 

853 

1018 

1166 

1386 

1691 

: 1892 
ESCAPE 4 
GETPRI 14 
GE TSWR 14 
LT 4 
NEWTST 4 
869 

1454 
POP 14 
PUSH 14 
REPORT 14 
SCOPE 30# 
930 

1481 
SETPRI 14 
SETTRA 28444 
SE TUP 14 
SKIP ta 
1168 

1650 
SLASH 14 
SPACE 1354 
STARS 14 
572 

772 

1126 

1369 

1610 

1972 

2707 
SWRSU 14 
TRMTRP 28444 
TYPBIN 14 
TYPDEC 14 
TYPNAM 14 
TYPNUM 14 
TYPOCS #4 
TYPOCT #4 
TYPTXT 4 
SSCMRE 2234 
SSCMTM 2234 
SSESCA 4 
SSNEWT l# 
869 

1454 
S$SET 28444 
S$SETM 4364 


18-OCT-79 


12:53 
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2561 


2657 


702 
1294 
1844 


724 
1322 
1905 


747 
1344 
1944 


770 
1367 
1970 


793 
1399 


PAGE : 


831 
1430 


0077 
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CVDRCA.P11 18-0CT=79 12:53 CROSS REFERENCE TABLE == MACRO NAMES 
SSSKIP 1a 1354 545 569 592 627 665 699 828 865 1121 1168 1214 1260 1289 
1317 1339 1362 1393 1425 1448 1473 1505 1537 1567 1605 1650 1715 1836 1966 
EQUAT oF 25 
HEADE 4 
KT11 fj 
. SETUP 14 397 
SWRHI Tj 15 
. SWRLO 254 
cT1 a4 187 
.SAPTB 14 2664 
~SAPTH 14 2 
. SAPTY 1% 2267 
.SASTA 14 
-$CATC 14 173 
SCMTA 14 223 
2D a 
$DB20 1s 
$SDIV 14 
. SEOP 14 2009 
. SERRO 1% 2468 
.SERRT 14 2523 
. SMULT lf 
. SPOWE 14 2773 
. SRAND 4 
SRDDE 1a 
$RDOC 14 
SREAD 14 2634 
$R2AZ a 
SSAVE 14 
$SB2D 14 
$SB20 14 
$SCOP l# 2570 
$SIZE 1a 
SSUPR 14 
STRAP 14 2821 
.STYPB 14 
.STYPD 1# 2401 
$TYPE 14 2188 
S$TYPO 14 2324 
-$400A 14 
.1170 lA 


- ABS. 017066 000 


ERRORS DETECTED: 0 


DSKZ:CVDRCA,DSKZ : CVDRCA/CRF /SOL=DSKZ:SYSMAC.SML ,DSKZ:CVDRCA,P11 
RUN-TIME: 51 52 3 SECONDS 

RUN-TIME RATIO: 331/108=3.0 

CORE USED: 33K (65 PAGES) 





